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5 Segunda parte del montaje, donde se ofrece 
software para dar mayor versatilidad. 


8 Cartas. Aclaraciones de las dudas que tienen 
los lectores de la revista. Hn esta ocasión con¬ 
testamos media docena de cartas. 


10 Feria Internacional Commodore. Hasta Lon¬ 
dres fuimos a ver. observar y contar las nove¬ 
dades de Commodore. lina feria muy intere¬ 
sante con una crónica de lo allí visto por nues¬ 
tro director v la presentación de novedades. 


16 BASIC 4,75. Un nuevo BASIC más potente, 
con más comandos que ayudará a los avezados 
dominadores del lenguaje a disfrutar más con 
su Commodore 700. 


20 Concurso. Programas enviados por nuestros 
lectores que tienen premio. En esta ocasión los 
autores de los programas: Alunizaje, leyenda, 
Mastermind, El Globo. Sistemas de ecuacio¬ 
nes. Calendario, Piano. El Ahorcado, Ataque 
marciano. Pelota Loca. El sapo venenoso. Re¬ 
cuerda y Lotería, son los afortunados pre¬ 
miados. 


42 Cuatro programas de nuestra cosecha: Tabla 
periódica, Histogramas, Piedras a los topos y 
Tranvía. Si hay paciencia para listarlos, ha¬ 
cedlo, son de gran interés. 


62 Cómo diseñar juegos para ordenador. Penúlti¬ 
ma parte de esta interesante serie que escribe 
Fernando García para Commodore Magazin. 
En agosto saldrá la última entrega. 


CONCURSO 
CALC RESULT 

En nuestro próximo número hare¬ 
mos público el resultado del concur¬ 
so convocado para aplicaciones de¬ 
sarrolladas con el Cale Result. 


Esta revista no mantiene relación de dependencia de ningún 
tipo con respecto de los fabricantes de ordenadores Commo¬ 
dore Business Machines ni de sus representantes. 
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Por fin llegó el ansiado verano. Es el momento de pasar largas horas 
delante del ordenador comprado hace pocos meses. Los agobios, las 
prisas, el tener que abandonar los programas a medias en favor de los 
libros se acabaron. Por lo menos durante un mes. Deseamos que éste sea 
el tiempo de sacar mayor provecho y disfrute a Commodore Magazinev 
al ordenador. Imprimir un giro temporal a la línea editorial déla revista se 
convierte en deuda y obligación durante el período estival.. El contenido 
será principalmente de programas y juegos, así como el Concurso, que 
pasa a tener mayor relevancia. Creemos que también es una buena época 
para disfrutar de las cinco mil pesetillas ganadas por los felices 
afortunados. 

Hemos aprovechado igualmente para contestar algunas de las cartas 
que inundan la redacción. Va desde aquí también la firme promesa de 
intentar responder el mayor número de ellas, que la disponibilidad de 
espacio nos vaya permitiendo. Desde luego es agobiante dejar fuera 
algunos de los interesantes artículos elaborados por nuestros colabo¬ 
radores. Así que, hemos creído que dada la importancia de los temas 
tratados no importaría demasiado un pequeño retraso en las respuestas. 

Este es un buen momento para que os animéis a poner por escrito 
vuestras experiencias con el Commodore y los podáis enviar, en forma de 
colaboración, a la revista. Tener por seguro que son muchos los usuarios 
con las mismas inquietudes compartidas, a los que agradará saber cómo 
habéis resuelto este o aquel problema. 

En esta edición continuamos con la serie que trata el tema de cómo 
diseñar juegos para ordenador. Está próxima a terminar y poste¬ 
riormente dará paso a un tema que entusiasma a casi todo usuario del 64. 

Incluimos asimismo una breve crónica de la Quinta Feria Informática 
Commodore, organizada en Londres el pasado mes. para aglutinar a 
todos aquellos que tienen algo que ofrecer a los usuarios, sean accesorios 
y periféricos, o software tanto educativo como profesional y recreativo. 
Es un acontecimiento al que merece la pena acudir, aunque se trate de un 
mercado más formado que el nuestro. La recomendación puede ser útil 
para algunos minoristas, por ser un evento que les puede hacer entender 
mejor por dónde van, e irán, los tiros. Aclaramos que la Feria tiene 
carácter anual, pero este año, por primera vez, se volverá a celebrar en la 
ciudad de Leeds, en septiembre. Si alguien necesita la información, que 
no dude en contactar con nosotros. 

En realidad, por el momento no nos queda otra cosa que desearos un 
feliz y divertido verano y recordaros que Commodore Magazine saldrá 
también en agosto. 


Claves para introducir 

COMO SE VE 

COMO SE TECLEA 

EFECTO CONSEGUIDO 

en ei ordenador 
los programas que 
aparecen en la revista. 

□ 

SHIFT + CLR 

(LIMPIA PANTALLA) 

a 

CLR 

(HOME;* 


w 

CRSR 

(CURSOR ABAJO) 


n 

SHIFT + CRSR 

(CURSOR ARRIBA) 


m 

CRSR 

(CURSOR DERECHA) 

* 

ii 

SHIFT + CRSR 

(CURSOR IZQUIERDA) 


■ 

CTRL + 1 

(NEGRO) 


4 

CTRL + 2 

(BLANCO) 


ra 

CTRL + 3 

(ROJO) 


k' 

CTRL + 4 

(CIAN) 


a 

CTRL + 5 

(VIOLETA) 


Bi 

CTRL + 6 

(VERDE) 


3 

CTRL + 7 

(AZUL) 


m 

CTRL + 8 

(AMARILLO) 


a 

CTRL + 9 

(CARACTER INVERSO) 


■ 

CTRL + 0 

(CARACTER NORMAL) 
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En esta segunda parte del artículo 
entramos en los aspectos sofi del 
manejo del interface. 

Si se hubiera cargado ya un pro¬ 
grama en el ordenador, se podrá listar 
mediante LIST en la impresora. Es 
interesante asegurarse de que funcio¬ 
na con un programa corto. No tarda¬ 
remos en darnos cuenta de que los 


símbolos gráficos no aparecen impre¬ 
sos. Basta echar una ojeada al código 
ASCII para comprender lo que ocu¬ 
rre. En la medida en que los datos son 
enviados por un solo cable, se hace 
evidente que la transmisión es reali¬ 
zada en modo serie. Todos los gráfi- 
eos que aparecen en el teclado del Vic 
son ASCII de ocho bits. Este tipo de 


símbolos gráficos son una peculiari¬ 
dad de Com ni odore. Cuando se en¬ 
vían datos a la impresora, entre los 
cuales se encuentran símbolos gráfi- 
eos. puede ocurrir una de tres cosas: 
La impresora ignora el octavo bit. 
imprimiendo el carácter correspon¬ 
diente a los restantes siete bits. En tal 
caso lo que necesitamos enviar son 
códigos de esta longitud en bits. 

Para ordenar al Vic que solamente 
envíe este tipo de códigos es suficiente 
con cambiar el OPEN por OPEN 
2.2.0.CHRS (39). También la impre¬ 
sora podría ignorar los datos. 

Pudieran aparecer otra clase de 
complicaciones con distintos tipos de 
impresora, siendo los listados initeli- 
gibles. Si esto ocurre, es necesario 
invertir los datos transmitidos, ha¬ 
ciéndose imprescindible la utilización 
del registro de Comando. Existe la 
posibilidad de invertir los datos me¬ 
diante software . En tal caso la trans¬ 
misión de código ASCII invertido de 
siete bits a 600 baudios se hace de la 
siguiente manera: OPEN 2.2.0.CHR$ 
( 224-). 

Otras impresoras podrían impri- 
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InterfacéJi 



para el 



mirlo todo, excepto los caracteres 
gráficos. 

Veamos algunos de los problemas 
que ueden surgir cuando se escribe un 
programa que proporciona datos de 
salida por impresora. Consideremos 
antes las siguientes líneas de progra¬ 
ma que es una parte de una rutina de 
manejo de ua eran fichero: 

1000 IF Y=1 ÍHEN PRINT #2, A$ 
SPC (3) BS SPC(3) C$ 

1010 IF Y =2 THEN PRINT 
SPC(3) E$ SPC(3) ES 
1020 IF Y =3 THEN PRINT 
SPC(3) H$ SPC(3) J$ 

Una vez introducido y puesto a 
trabajar (tecleando RUN) funciona 
sin problema. Posteriormente, se car- 


g. D$ 
g. G$ 


garía en 

cinta. 

pero 

al volver a 

Figura 1. 

Rutina 

en código máquina. 

• .• 

1200 

LDH 

#$07 

m J 

1202 

STH 

$1300 

■ t 

1205 

LDR 

#$01 

• > 

1207 

LDX 

#$00 

H ,* 

1209 

LDV 

#$13 

■ > 

120B 

JbR 

$FFBD 

■ t 

120E 

LDR 

#$02 

H > 

1210 

LDX 

#$02 

* ) 

1212 

LDV 

#$00 

■ > 

1214 

JSR 

$FFBR 

m f 

1217 

JSR 

$FFC0 

■ > 

121 ñ 

LDX 

#$02 

a } 

121C 

JSR 

$F FC9 

n ) 

121F 

JMP 

$6121 

Forma de inicial izar el 

pon de impreso- 

ra v entrar 

en el 

Vicmon: Se entra en el 

V icmon con 

SYS 6 :; 

•4096. 

se introduce este 


programa y se corre con G 1200. El 
Vicmon produce toda su salida por la 
impresora, lo cual es equivalente a OPEN 
2.2.0.CHRS(7): CMD 2: SYS24S65. 


pasarlo desde la cinta al ordenador, 
aparece el mensaje de SYNTAX 
ERROR, cuando llega a la línea 300. 
La causa es simple, falta la variable 
de retorno del carro, que debería 
utilizarse al final de cada sentencia 
PRINT g, R$=CHRS( 13). con lo que 
se evitan todos los problemas. 

Se puede necesitar imprimir algo 
que la mantenga un espacio a partir 
del borde del papel. Si utilizamos algo 
como: PRINT 02, "DESDE AQUI", 
no funcionará. Tampoco pueden ser 
utilizadas TAB o SPC para espaciar 
el primer carácter, necesitaremos uti¬ 
lizar otra variable. Utilizando S$ = 
CHRS(0), la línea se escribe: PRINT 
02. S$ SPC(6) "DESDE AQUI". 

La utilización de CHR$(0) engaña 
a la impresora, que la primera cosa 
que demanda es un carácter, puesto 


que la variable S$ no significa nada, 
la impresora recibe (felizmente) nada, 
produciendo el número de espacios 
en blanco necesarios, indicados por 
SPC. 

Ahora pasemos a ver qué ocurre 
cuando se necesita volver a utilizar la 
pantalla. Si hemos abirto el pon de la 
impresora en modo directo, no se 
debe cerrar. El comando CEOSE 2 en 
este modo es probable que cause 
problemas. Los programas pueden 
ser destruidos y el Vic quedar colga¬ 
do. de tal manera que se haga nece¬ 
sario presionar el botón de RESET 
(puesta a cero), que hemos incorpo¬ 
rado al ínterface. Para acceder a la 
pantalla lo más simple es introducir 
un carácter (con Return). aparecien¬ 
do en ella el clásico SYNTAX 
ERROR, respondiendo la pantalla a 


Figura 2. Rutina de volcado de pantalla. 


16 OPEN 2..2,0,CHR$<7) 

20 G S= PEEK<648)#256 : FOR P=G TO G+505 
. 30 C-PEEK<P) : C$= H ":IF<P-G)/22*INTC<P-G)/22) 
THEN PRI NT#2 .• C$ 

40 IFC32 ÜR 095 THEN C=C+64 : G0T0 60 
50 IF>68 AND 096 THEN OC+128 
60 C$=C$+CHR$ í. C > 

70 PRINT#",C$; : HEXT 
80 RETURN 


l a línea diez normalmente debería situarse al comienzo del programa 
principal. Fas 20 a 80 serán llamadas cuando se requiera. 


Figura 3. Rutina de escritura por impresora. 


10 OPEN 2,2,0,CHR$<7> 

20 PRINT"ÍÍ-F/F e-EXIT t-L/F" 

30 GET K$ ; IF K$=" " THEN 30 
40 IF K$-" X "THEN PRINT#2,CHR$<12)aGOT0 30 
50 IF K$=" f'THEN F'RINT#2 j CHR$( 10> J : GOTO 30 
60 IF K$="@"THEH RETURN 
70 PRINT K$ 

80 PR I NT #2 .< K$ > 

90 GOTO 30 


Para convertir al Vic en una máquina de escribir bórrese Return de la línea 
70. reemplazándolo por Fnd. 
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partir de este momento. Volverá dar 
salida por impresora es sólo cuestión 
de teclear CMD2. El cierre del pon 
desde el interior de un programa no 
produce problema alguno. 

La manera clásica de entrar en el 
Vicmon es teclear SYS 6*4096. Si 
abrimos y controlamos el pon de 
impresora en BASIC y después en¬ 
tramos en el Vicmon. aparecerán to¬ 
dos los registros en la impresora, 
cerrándose todo lo demás. Durante 
su rutina de inicialización el Vicmon 
cierra todos los canales de salida sin 
más miramientos, por tanto también 
el de la impresora. La forma de entrar 
en el Vicmon y seguir utilizando la 
impresora la detallamos a continua¬ 
ción: 

— Abrir el pon de impresora des¬ 
de BASIC. 

— Entrar en el Vicmon de la mane¬ 
ra habitual. 

— Cuando se requiera la impreso¬ 
ra hay que volver al BASIC. 

— Teclear CMD a la impresora. 

— Volver a entrar en el Vicmon 
con SYS 24865. 

— Presionar nuevamente Return. 

Se podría querer obtener un listado 
en código máquina. Lo más práctico 
no es intentar correr programas, lle¬ 
gados a este punto. Convendrá salir 


al BASIC, forzar un SYNTAX 
ERROR y volver a entrar al Vicmon. 

Ocurre a menudo que, cuando se 
sale al BASIC desde el modo impre¬ 
sora, el cursor de pantalla se pierde. 
Para devolverlo a su forma normal es 
suficiente con apretar Restores y 
Run/Stop. 

Existe otra manera de trabajar con 
el Vicmon y la impresora. Se abre el 
canal desde BASIC, se teclea CMD al 
pon y se entra en el Vicmon con SYS 
24865 y Return. 

La impresora no ha escrito un V, 
pudiéndose putilizar todas las posibi¬ 
lidades del Vicmon. Si ensamblamos 
un programa, cada línea será impresa 
en cuanto introduzcamos el Return. 
Si la sintaxis es incorrecta no aparece 
salida. Cuando quiera correr el pro¬ 
grama fuerce un error de sintaxis v 
vuelva a entrar en el Vicmon. 

Proporcionamos aquí un programa 
que inicial iza el pon de impresora y 
entra en el Vicmon. Podría ser utiliza¬ 
do con un mínimo de alteraciones, 
como rutina de impresión, en un 
programa mayor. A menudo se em¬ 
plaza desde la dirección A200 hacia 
arriba..de tal forma que lo ponemos 
bastante lejos del resto de la memo¬ 
ria. Resulta obvio que también nece¬ 
sitaremos uno de los cartuchos de 


RAM direccionables en esta zona (lá 
misma utilizada por los cartuchos de 
juegos). 

La rutina de volcado de pantalla 
desde dentro de un programa sirve 
para obtener una copia directa del 
contenido que está siendo visualiza¬ 
do. La pantalla del Vic sólo tiene 22 
caracteres de anchura, pero si desea 
hacer el volcado, aquí está el pro¬ 
grama. 

Normalmente, el comando de aper¬ 
tura (OPEN) se sitúa al comienzo del 
programa, empleándose un GOSUB 
en otras líneas. 

El último programa, para escritura, 
se autoexplica. Dispone de alimenta¬ 
ción de línea y alimentación de hoja. 
No existe cursor de pantalla. 

Para comenzar una nueva línea se 
teclea ", para alimentar línea y des¬ 
pués Return. apareciendo el próximo 
carácter en la línea siguiente. El 
programa no ha sido preparado como 
algo de inusitada utilidad en sí mis- 
mo. sino como una pauta para otros 
desarrollos. 

Con esta segunda parte se ha pre¬ 
tendido dejar más claros algunos de 
los aspectos primarios del funciona¬ 
miento de la impresora en conexión 
con el ordenador. Sin embargo, en un 
futuro próximo habrá más. 
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IMPORTANTE: 

Son muchas las cartas que diaria¬ 
mente llegan a esta sección. Por tanto 
rogamos que tengáis un poco de 
paciencia al esperar la respuesta. Al¬ 
gunas veces las preguntas son simila¬ 
res y quedan respondidas por otra 


Si queréis que hagamos un club 
"Vic 20". poneros en contacto con: 
Antonio Recober. Tel. 32 20 46 de 
Málaga. Se trata de intercambiar 
programas, conocimientos y expe¬ 
riencia sin que nos cueste dinero. 

Si algún 64 quiere hacer el camino 
a nuestro lado, podemos intentarlo. 
¡Animo malagueños! 

A. Recober.Málaga 


carta que no es la vuestra v se hace 
obvio que está por demás repetir. 
Suponemos vuestra comprensión de 
los cuellos de botella y el funciona¬ 
miento en serie del mecanismo de 
respuesta. Gracias. 


se pretende dar clase de informática, 
y no conviene que desde un principio 
se pongan los alumnos a listar y a 
copiar programas. 

Espero me deis contestación a mis 
dudas, y que no os moleste si tengo 
una gran dificultad y os tengo que 
escribir otra ve/. Muchas gracias. 

.1. Rafael Oscar Martín 
Las Palmas de G. C. 


Ya lo sabéis los “comodoreros' de 
la zona. Cuando estéis en pleno 
funcionamiento ya nos contaréis có¬ 
mo os va. 



P.:Ante todo, deseo felicitarles por su 
revista, una publicación muy bien 
centrada en los usuarios de los Com- 
modore. Gracias por explicarnos esos 
“truquillos". 

Bien, mi problema es el siguiente: el 
instituto en el que estoy ha comprado 
ordenadores C-64 y Vic-20. y las 
personas que ya sabíamos programar 
en BASIC hemos visto que en dos 
semanas escasas ya sabemos usar el 
C-64 exceptuando los SPRITES y el 
SYS. Buscamos una revista especiali¬ 
zada en los Commodores. y encon¬ 
tramos la vuestra. “Commodore Ma- 
gazine". y al leer los programas que 
aparecen en vuestro número dos he¬ 
mos visto cosas como: 

— JS——(( X AND H)=) 

— JE——( X=) 

— v, para abreviar, todo lo que apare¬ 
ce en la sección trucos. 

Y ni se mencionan en el manual. 

Por eso nos preguntamos si habrá 
en - el mercado algún (o algunos) 
libros que expliquen el C-64. pero que 
lo expliquen a fondo. 

También quisiéramos saber si hay 
algún POKE que anule la instrucción 
LIST, ya que con estos ordenadores 



R.: Apreciamos sinceramente la con¬ 
fianza que depositas en nosotros, y 
puedes escribir las veces * que creas 
necesario. Revistas como esta, y libros 
también, son el complemento necesario 
para los usuarios de cualquier marca 
de ordenador. No se puede pretender 
que los manuales del fabricante sean 
excesivamente detallados, pues su ne¬ 
gocio es la venta de ordenadores y no el 
editorial. Por eso es bastante común 
que los manuales traigan exclusiva¬ 
mente la información imprescinsible (a 
veces ni eso). En la mayoría de los 
casos, los trucos son producto de una 
madurada elaboración, en base a la 
información suministrada por el fabri¬ 
cante. En otros casos surge de la 
experiencia, casi casualmente. 

El surtido de libros es grande, la 
mayoría en idioma inglés, siendo loca- 
lizables en diversas librerías especiali¬ 
zadas, r lógicamente no todas tienen 
los mismos títulos. La biliografía exis¬ 
tente en castellano es aún reducida, 
pero se prevé que el aluvión de traduc¬ 
ciones y originales sea grande en los 
próximos tiempos. De todas maneras 
siempre será aconsejable acudir a las 
tiendas de microinformática más cer¬ 
canas, a veces hay sorpresas. En la 
revista tenemos intención de comenzar 
a publicar crítica de libros no tardando 
mucho. 

El tema de anular la instrucción 
LIST no es tan simple como aplicar un 
solo POKE. Cuando dice “no convie¬ 


ne' ’ interpretamos que se considera no 
deseable que los alumnos tengan acce¬ 
so a los listados de los programas 
didácticos. Hay distintas formas de 
proteger programas, pero no les quepa 
la menor duda de que antes o después 
habrá alguien capaz de dar con la llave. 
Para indicarle cuál es la forma más 
efectiva de protección sería deseable 
conocer alguna característica del pro¬ 
grama. Por otro lado, el tipo de 
protección es dependiente del ordena¬ 
dor, sobre todo cuando afecta a diver¬ 
sas posiciones de memoria. En cual¬ 
quier caso, conociendo más detalles 
intentaríamos buscar la solución más 
factible. 

Desde aquí hacemos una llamada a 
otros lectores por si tienen problemas 
parecidos y/o quisieran compartir al¬ 
gunas de las posibles soluciones. 



P.: Como nuevo y reciente propie¬ 
tario del ordenador personal Com- 
modore Vic-20, desearía recibir in¬ 
formación sobre los productos que 
ustedes pueden ofrecerme. 

Sin otro particular v a la espera de 
sus gratas noticias, aprovecho la oca¬ 
sión para saludarles muv cordialmen¬ 
te: * 


Edelmiro Rodríguez. Orense 

R.: Por el contenido de su carta se 
desprende que piensa que podemos 
suministrarle productos hard y soft. 
Esto no es exactamente así. Nuestra 
única actividad se centra en el campo 
editorial, es decir, sólo ha ce/nos revis¬ 
tas. Nuestra oferta se localiza fácil¬ 
mente en los kioskos de prensa. Tres 
son las cabeceras que llevan nuestro 
sello: Commodore Magazine, ZX y 
Ordenador Popular. 



P.: Soy un lector de su revista y me 
gusta su organización. Quiero, prime¬ 
ro, felicitarles. Despué> de esto qui¬ 
siera hacer una pregunta, que espero 
obtener respuesa. si ustedes no tienen 
inconveniente. QuLiera saber la dife- 
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renda existente entre el Vic sin am¬ 
pliar y el Vic con 16 K de ampliación. 
Me gustaría además me dijesen donde 
puedo conseguir un mapa de memo¬ 
ria del Vic aquí, en Zaragoza. 

Aparte de esto volver a felicitarles y 
a animarles a continuar, sobre todo 
con esa parte que dedican al hardware 
en -todas las revistas. 

J. B. C. Zaragoza 

R.: Recibimos complacidos sus feli¬ 
citaciones, tal vez inmerecidas. Bien, el 
principal cambio cpie ocurre cuando 
introducimos un cartucho de amplia¬ 
ción de RAM al VIC 20 es que la 
configuración del mapa de memoria se 
altera en función del cartucho. L 7 de 3 
R no produce variación, pero sí lo 
hacen el de 3 y 16 Kbytes, que 
reconfiguran el mapa. 

Para conocer en detalle el mapa de 
memoria, existen diversos títulos en él 
mercado, algunos en inglés. Probable¬ 
mente el más accesible sea la “ Guía del 
Programador para el Vic 20”, escrito 
en castellano y fácil de encontrar en los 
comercios de distribución de la marca 
o en grandes almacenes. 



P.: He dirigido escrito a Commo- 
dore International Ltd. manifestando 
mi descontento con el servicio post¬ 
venta que la firma tiene en exclusiva 
para España. 

Le adjunto dicho escrito para agra¬ 
decerle que lo publique en su presti¬ 
giosa revista. Espero con ello que 
tales experiencias como la que me ha 
sucedido no le ocurran a los usuarios 
de Commodore. 

José Antonio García Borrego. Sevilla 

R.: La carta del lector García Bo¬ 
rrego viene acompañada de una foto¬ 
copia de otra que dirigiera a Commo¬ 
dore International Ltd. y que por su 
extensión, no podemos reproducir aquí. 
En síntesis, se queja en ella de la 
demora e incertidumbre en que se vio 
sumido durante más de dos meses de 
enviada a reparación una unidad de 
cassette C2Ñ. Expresa también su 
disgusto por el hecho de que la repara- 
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ció/i. más los gastos de envió v llama¬ 
das telefónicas que debió hacer para 
recuperar su material, le saliera por 
17.223 pesetas, es decir 3.000 más que 
el precio de una unidad nueva. 

Como esta es una revista indepen¬ 
diente, cuyo único compromiso es con 
los lectores, nos ha parecido necesario 
poner en conocimiento de Microelec¬ 
trónica v Control la acusación del 
* 

lector García Borrego. Un portavoz 
autorizado de la empresa nos explicó 
que, normalmente, el servicio de man¬ 
tenimiento se hace a través de distri¬ 
buidores. Al haber optado este lector 
por el envío directo a Barcelona, se 
creo una confusión por aparente coin¬ 
cidencia de nombres, que hizo que, una 
vez efectuada la reparación, la unidad 
de cassette fuera enviada de vuelta a un 
distribuidor de otra ciudad, lista cir¬ 
cunstancia explica, según Microelec¬ 
trónica v Control, la tardanza de dos 
meses, hasta que. revisadas todas las 
entradas r salidas de mercancías, se 
detectó el error. A la fecha de sú carta, 
3 de junio, el disgustado usuario va 
había obtenido satisfacción a su recla¬ 
mación. * La cuestión del precio de la 
reparación es tanto o más controverti¬ 
da. Según los datos que aporta nuestro 
lector sevillano, la reparación en si 
mismo fue facturada a 7.373 pesetas. 
Precio que Microelectrónica y Control 
considera inevitablemente caro tenien¬ 
do en cuenta la avería de que se 
trataba. En opinión del importador de 
Commodore, el coste de los recambios 
y de la mano de obra de reparación 
hacen que el mantenimiento resulte 
caro si se lo compara con los costes de 
producción en serie.- Problema inheren¬ 
te — añaden — a todo producto de 
consumo de bajo precio de venta. 

O idas que fueron las partes, nuestros 
lectores podrán juzgar. 



P.: Quiero comprarme un Com¬ 
modore 64, pero cuando he querido 
informarme en varias casas de orde¬ 
nadores personales me han indicado 
varias pegas, como la dificultad del 
servicio post-venta del Commodore. 
Por otra parte, he notado una insegu¬ 
ridad en los vendedores con respecto 
al Commodore, debido a la dificultad 


que he tenido de encontrarlo en las 
casas de venta. 

¿Representa un factor negativo 
muy a tener en cuenta a la hora de su 
compra? ¿A qué se debe esta poca 
fiabilidad de los vendedores? ¿Es 
quizás a su elevado precio? Quisiera 
saber también si únicamente el C-64 
funciona con magnetofón Commo¬ 
dore. 

Félix Baltanas. Castellón 


R.: La primera parte de su carta 
refleja una inquietud bastante genera¬ 
lizada, cuyo origen es la situación de 
desabastecimiento que ha sufrido el 
mercado español (y otros europeos) a 
partir del último trimestre del año 
pasado. Efectivamente, hasta hace muy 
poco, los distribuidores de la marca se 
quejaban de que el importador no les 
suministraba equipos para cumplir con 
¡a demanda. Esa situación, nos informa 
Microelectrónica y Control, ha cam¬ 
biado y ya no hay razones para temer. 
En cuanto al servicio post-venta, la 
misma empresa afirma que no hay 
pega alguna. 

Ciertamente, si las aprensiones de 
los distribuidores se vieran refrendadas 
por la realidad, habría que tomar en 
cuenta este /actor a la hora de comprar 
un Commodore. Pero, si la situación 
está superada, no vemos motivo de 
inquietud. El 64 es un equipo excelente 
r su lubricante una empresa sólida, 
líder en el mercado americano de home 
computéis. 

En cuanto al precio, ciertamente es 
comparativamente más alto que en 
otros mercados europeos, pero éste es 
un fenómeno común a casi todos los 
ordenadores personales que se venden 
en España. En términos absolutos, no 
nos parece que sea caro, como usted 
sugiere. 

En cuanto a su pregunta sobre el 
magnetofón, nos parece que podemos 

darle dos interpretaciones: el 64 no 
puede trabajar con un magnetofón que 
no sea de la marca, a menos de contar 
con un ínter face especial. Y, por otra 
parte, el magnetofón de Commodore 
está específicamente diseñado para ese 
exclusivo uso, por lo que no puede 
utilizarse para, por ejemplo, grabar o 
reproducir audio. 







































Este año es la quinta ocasión en 
que se celebra la Feria Commodore 
en las islas británicas. Allí se concen¬ 
tran los principales proveedores de 
software y hardware orientado a la 
marca. Commodore Magazine la visi¬ 
tó para poder conocer de primera 
mano lo que hubo, de tal manera que 
ahora podemos contarlo sin necesi¬ 
dad de intermediarios. 

Es de reconocer que el evento, 
organizado en el Novotel londinense, 
es capaz de poner los dientes largos a 
cualquier “comodorero"’ que se pre¬ 
cie. Nada tenemos que decir contra 
la organización, excelente en todo 
momento. 

Como es lógico, la representación 
de la central europea de Commodore 
Business fue notable en ambas seccio¬ 
nes de la feria. Los exhibidores fueron 
dividos en dos grandes grupos: los 
orientados a las aplicaciones domés¬ 
ticas. juegos, etc., y el segmento 
destinado a las aplicaciones profesio¬ 
nales, de negocio, etc. En el primero, 
como es lógico, las pantallas con 
juegos multicoloreados hacían las de¬ 
licias de los más jóvenes, que des¬ 
truían marcianos y monstruos sin 
parar. Por el contrario, en el piso 
superior, la edad media de los visitan¬ 
tes era superior, como también la 
gravedad de sus rostros, denotando 
preocupación por hallar ese nuevo 
paquete de aplicación, que resuelva 
las nuevas necesidades de su negocio. 

Por lo que a novedades se refiere, 
había bastantes. Algunas no lo eran 
tanto para nuestros lectores, tal como 
el Commodore 16, o el 8296, que ya 
vimos en la Feria de Hannover el 
pasado abril. Sin embargo, una de las 
principales atracciones fue el Plus/4, 
que originalmente fue concebido co¬ 
mo 264. La razón aparente de la 
existencia del modelo parecer ser 
atribuida a la necesidad de llenar un 
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Crónica desde Londres 


vacío que actualmente rompe la con¬ 
tinuidad entre los modelos profesio¬ 
nales y de uso doméstico en el catálo¬ 
go de Commodore. Para reforzar la 
idea, el Plus/4 se anuncia con cuatro 
paquetes de aplicación, que lo hacen 
inmediatamente utilizable como he¬ 
rramienta de gestión. Se da la particu¬ 
laridad de que este software queda 
totalmente integrado en la memoria 
ROM de la máquina. 

Los cuatro paquetes cubren cuatro 
de las áreas claves para las aplicacio¬ 
nes financieras: tratamiento de textos, 
hoja de trabajo (spreacisheet J, base de 
datos y gráficos orientados a la ges¬ 
tión. Se añade que los cuatro paque¬ 
tes pueden compartir e intercambiar 
la información entre sí. Igualmente se 
ha dotado al Plus/4de “facilidades de 
ventana" en la pantalla, lo cual per¬ 
mite hacer uso simultáneamente de 
hasta dos paquetes. 

Un portavoz de la compañía define 
al Plus/4 como “un ordenador perso¬ 
nal que permite su utilización como 
potente herramienta profesional y 
educativa, al mismo tiempo que una 
máquina recreativa sofisticada". 

Las principales características del 
modelo se centran en su memoria 
RAM de 64 Kbytes, de los cuales 60 
pueden ser directamente utilizados 
por los programas desarrollados en 
BASIC. La memoria ROM inicial 
tiene una capacidad de 32 Kbytes, en 
los que se incluye el sistema operativo 
y el intérprete de la versión avanzada 
del BASIC, 3.5, que incluye unos 75 
comandos, comprendiendo los que 
afectan a gráficos y sonido. El micro¬ 
procesador utilizado es el aún no 
clásico 7501. La pantalla utiliza el 
formato en modo texto de 25 líneas 
de hasta 40 caracteres cada una, con 
símbolos, caracteres numéricos y le¬ 
tras mayúsculas y minúsculas. La 
paleta de colores utilizable es amplia: 
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121 colores, que en realidad son 15 en 
ocho niveles distintos de luminancia. 
Aparte del modo texto están obser¬ 
vados los gráficos en alta resolución 
(200 por 320 puntos) y compartida en 
modos texto o alta resolución. El 
teclado lleva incorporadas 67 teclas 
en total, incluyéndose cuatro para el 
control del cursor y cuatro de función 
programables. Para comunicarse con 
periféricos y accesorios, dispone del 
mismo tipo de ports existentes en el 
64. El precio anunciado para Gran 
Bretaña es de 250 libras, previéndo 
su disponibilidad para el mes de 
septiembre. 

El modelo 16 es un modelo de bajo 
precio, que también disfruta del BA¬ 
SIC 3.5, pero solamente lleva 16 
Kbvtes de RAM. La ROM es igual¬ 
mente de 32 Kbvtes. La definición 
más aproximada de este modelo sería 
referirse a él como un 64 con tan sólo 
16 K de memoria, de los que 12 K son 
utilizables por los programas en BA¬ 
SIC. 

Uno de los más persistentes rumo¬ 
res que circularon por la feria se 
refería al Commodore PC, parece ser 
que lá multinacional está rediseñán¬ 
dolo con una pantalla de mayor 
tamaño y mejoras en la CPU. Sin 
embargo, lo que parece que fue cierto 
es que los mejores clientes de la firma 
pudieroan ver el V8000, aunque en 
“petit commite". Se trataría de una 
potente máquina orientada a su utili¬ 
zación en aplicaciones de gestión. 

Otro interesante apartado; las 
novedades en productos periféricos. 
En primer lugar podemos destacar la 
impresora matricial de color MCS 
801, que con una velocidad de 38 
caracteres por segundo es capaz de 
imprimitir en hasta siete colores. Su 
compatibilidad con la gama de orde¬ 
nadores Commodore es completa. 

La segunda novedad va también de 
impresoras. En este caso se trata del 
modelo DPS 1101, que trabaja en 
modo bidireccional y produce docu¬ 
mentos en calidad “tipo carta ", por 
lo que su velocidad es lenta en com¬ 
paración con los modelos matriciales. 
Imprime a razón de 18 caracteres por 
segundo y puede utilizar distintos 
tipos de letra. Su precio de salida es 
razonable en comparación con mode¬ 
los de características similares. 




El último modelo de impresora es 
también matricial, no excesivamente 
rápida (60 caracteres por segundo). 

Para almacenamiento masivo se 
presentaron dos unidades que utilizan 
diferente tecnología. La primera es la 
unidad de diskettes SFS 481, que 
almacena hasta 170 Kbytes de infor¬ 
mación, una vez formateado el diske- 
tte. No representa un incremento en 
la capacidad con respecto al modelo 
anteriormente existente. El formato 
utilizado emplea 35 pistas para gra¬ 
bar los datos, pudiendo definirse 
hasta 144 ficheros por diskctíc. Como 


es clásico, la unidad incorpora su 
propio microprocesador, un 6510. 
que libera al ordenador de las tareas 
propias de controlador de la unidad. 
El complemente son dos Kbytes de 
RAM y 16 Kbytes de ROM, conte¬ 
niendo el sistema operativo para el 
disco. La velocidad de transferencia 
de datos sí parece haber sido incre¬ 
mentada, siendo la máxima de 1.675 
bvtes por segundo. 

La otra unidad de almacenamiento 
masivo es un lector/reproductor de 
cassettes, en realidad es francamente 
similar a la C2N, pero con un conec- 
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tor diferente, norma DIN. que le hace 
apto para los Plus/4 y 16. 

El denominador común de todos 
estos nuevos periféricos es su apa¬ 
riencia externa. En todos ellos se ha 
empleado el mismo color para el 
plástico de la carcasa, gris metaliza¬ 
do, exactamente igual que los dos 
nuevos ordenadores. 

Entre las distintas firmas asistentes 
pudimos ver un poco de todo. Lo que 
sí queda claro es que el mercado 
británico ha tenido un enorme des¬ 
arrollo de cara a los modelos de 
Commodore, particularmente con el 


64, a pesar de la fuerte competencia 
de los ordenadores de concepción 
británica. 

La firma Adamsoft disponía de dos 
lenguajes de amplia aceptación, el 
Tinv FORTH v el Zoom Pascal, en 
versiones destinadas a 1 64. 

Procedentes de Adcomp y Adman, 
respectivamente, se presentaron una 
unidad de disco duro y un sintetiza¬ 
do r de voz, ambos para el 64. La 
firma Currah presentó otro sistema de 
síntesis de voz orientado al 64, pero 
con la peculiaridad de traducir texto a 
voz, es decir, lo que se teclea en el 


ordenador es “vocalizado"' por el 
dispositivo, llamado Microspeech 64. 

El material educativo ocupó espe¬ 
cial relevancia. Muchas son las casas 
que disponen de algún tipo de softwa¬ 
re . sea de formación en matemáticas, 
como el caso de LCL, idiomas, o 
incluso informática. La propia Com¬ 
modore posee algún software real¬ 
mente sorprendente, que por el mo¬ 
mento no recordamos haber visto 
distribuido en nuestro país. Podemos 
añadir que incluso había alguna firma 
que oferta cursos de formación para 
dealers. 

El tema de los juegos y pasatiem¬ 
pos es-un capítulo que merece espe¬ 
cial énfasis. Comencemos diciendo 
que se presentó un nuevo juego de¬ 
portivo, destinado al 64. En este caso 
se trata del baloncesto, cuyas caracte¬ 
rísticas de presentación en pantalla 
guardan la línea con las del fútbol, 
comentado en el pasado número de 
Commodore Magazine. Incluso Radio 
Luxemburgo, que lanzara a la fama a 
los Beatles, se hizo eco de él. en 
emisión directa desde la feria. Para 
añadirle alegría al asunto, un par de 
jugadores, ataviados con prendas de¬ 
portivas. aceptaron el desafio de todo 
aquel dispuesto a puntuar en la ca¬ 
nasta. 

La empresa Alligata disponía de 
varios juegos emocionantes, espe¬ 
cialmente uno que tenía por protago¬ 
nista a una locomotora, que debe 
salvar diversas vicisitudes para llegar 
a su destino. Anirog Software presen¬ 
tó cuatro nuevos juegos, cuya calidad 
gráfica es indiscutible, con Petch, Ice 
hunter. Bongo v House of Usher, que 
hacían las delicias de la concurrencia 
más joven. 

Las mil v una noches también 
estuvieron presentes en el Show. Un 
excelente juego, con síntesis de voz, 
basada únicamente en el sintetizador 
musical estándar del 64 nos lleva a 
correr mágicas aventuras orientales. 

Llamasoft y Quicksilva, dos de los 
más importantes fabricantes de soft¬ 
ware recreativo, también estuvieron 
presentes con sus stancis. El primero 
presentó un atractivo juego, llamado 
algo así como La oveja en el espacio. 

Merlin Software presentó un juego 
aún no disponible comercialmente, 
pero que lo estará en breve. Habla- 































mos de Wimbledon 84, un juego de 
tenis con efecto tridimensional. 

Por otro lado, los programas para 
editar sprites en el 64 estaban a la 
orden del día en bastantes ’stands. 

Los programas de aplicación musi¬ 
cal fueron otra de las constantes de la 
feria, en sus distintas variantes. Es de 
destacar el Musicalc, un sistema des¬ 
tinado a la música creativa, con 
capacidades realmente sorprendentes. 
No tardaremos en analizarlo deteni¬ 
damente en estas páginas, pues este 
producto de la firma california na 
Waveform es realmente espléndido. 

De cara al diseño gráfico con 
ordenador pudimos ver diversos 
accesorios, desde la famosa tableta 
Koala Pad, pasando por el lápiz 
óptico y una tableta de dibujo con un 
brazo sin articular, que en su despla¬ 
zamiento envía las coordenadas ins¬ 
tantáneas del bolígrafo al ordenador. 

En el área del software para aplica¬ 
ciones profesionales, la oferta tam¬ 
bién era amplia. Así como la de 
hardware para ampliar las capacida¬ 
des de los sistemas. 

Comencemos por RAM Electro¬ 
nics, que ha desarrollado un prototi¬ 
po de ampliación a 256 Kbytes de 


RAM para el 64, e incluso hablan de 
otra de hasta 512 Kbytes. 

APS Microsystems disponía de 
unidades de almacenamiento masivo, 
con cartucho móvil, destinadas a los 
sistemas 8000 y 700, con capacidades 
de 10. 20 y hasta 40 Mbytes. 

Dataview presentó su red local Hy- 
dra, capaz de unir diversor 64 para 
captura de datos, utilizando un 8000 
como controlador del conjunto. 

Las aplicaciones de contabilidad, 
como es lógico, proliferaban por toda 
la exhibición, con todas las variantes 
que uno pueda imaginar. También 
había, aunque demasiadas, contabili¬ 
dades para el presupuesto familiar, 
tal como el C’ash book 64, de Ana- 
gram. 

En bases de datos no hubo grandes 
sorpresas. Tal vez el Superoffice, de 
Precisión Software, que integra el 
conocido Superbase y el Superscript 
II, con destino al 8096, era uno de los 
paquetes más relevantes. 

Audiogenic presentó un cartucho, 
controlado por menú, llamado Mag- 
pie, capaz para 52 campos y un 
máximo de unos 3.000 caracteres por 
registro. 


En lo que afecta a las hojas de 
trabajo, la oferta era variada. Desde 
el Visicalc3.de Supersoft,incluyéndo¬ 
se los busicacl y sus versiones 2 y 3 (la 
primera para el Vic y las otras dos 
para el 64). hasta el interesante V¡- 
zarstar, de viza Software. Dataview 
tenía el Insta Calc/Graph, paquete 
integrado, compuesto por hoja de 
trabajo y generación de gráficos. Por 
lo tocante a tratamiento de textos no 
encontramos ninguna novedad abso- 
luta. Probablemente, el Word Result, 
de Handic, firma que desarrolló el 
Cale Result. En este caso se pueden 
utilizar ambos paquetes en un 700. 
que utilizando las posibilidades de 
pantalla partida, es capaz de ofrecer 
en ella simultáneamente el tratamien¬ 
to de textos y la hoja de trabajo. 

Y bien, hasta aquí el resumen de 
una interesante Feria, que nos ha 
servido para estar al día en las ten¬ 
dencias del mercado Commodore. Es 
indudable que una marca capaz de 
generar este tipo de eventos ha logra¬ 
do una implantación real en el 
mercado. Veamos cuánto tiempo ne¬ 
cesitaremos para poder celebrar algo 
similar aquí, aunque sea con medios 
más modestos. 
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RECIBOS DE 
CUOTAS 


MANTENIMIENTO 
LISTADO DE RECIBOS 
LISTADO ETIQUETAS 
V OTROS 


AVD. CESAR AUGUSTO.72 
Tlfs.23 56 82 y 22 6544 
ZARAGOZA—3 


GESTION 
COMERCIAL 

MOVIMIENTOS DE ALMACEN 

albaranes-facturas 

RECIBOS-REMESAS 
Y OTROS LISTADOS 
CUENTES 500 
ARTICULOS 1000 


CONMUTADOR T V. 

PERMITE SIMULTANEAR 
EL USO DE LA ENTRADA 
DE ANTENA AL TV 
CON UN ORDENADOR 
PERSONAL 

commodore 

J’.V.P. 2.850 pts. 


QUINIELAS 

CALCULO 
GENERADOR CON 
CONDICIONANTES 
FIJADOS DE 
ANTEMANO (FIJOS, 
DOBLES, TRIPLES) 
EN DISCO Y CINTA 


CONTROL STOK 

MOVIMIENTOS DE ALMACEN 
DIARIOS DE VENTAS Y 
COMPRAS-INVENTARIO 
MINIMOS 

USTADOS DIVERSOS 
ARTICULOS 1500 
PROVEEDORES 255 


DIRECCIONES Y 
ETIQUETAS 


DIRECCIONES 

etiquetas 

GESTIONES DIARIAS 
Y OTROS PROCESOS 


iNOVEDAD! 
EFECTOS Y REMESAS 

EMISION RECIBOS 
EMISION REMESAS 
ETIQUETAS CLIENTES 
LISTADOS 

CLIENTES 800 
REMESAS 500 


RECTAS DE 
REGRESION 

POR PANTALLA E 
IMPRESORA MEDIA, 
DESVIACION TIPICA 
Y VARIANZA 
PREDICCIONES 


AGENDA Y 
DIRECCIONES 

ENTRADA DIARIA CON 
OCUPACION DINAMICA 
VISUALIZACION E IMPRESION 
DE GESTIONES AGENDA 
DIRECCIONES 
USTADOS Y ETIQUETAS 


CONTABILIDAD 

DIARIO BALANCES 
SUMAS, SALDOS Y 
SITUACION 
LISTADOS APUNTES 
CUENTAS 750 
APUNTES 3515 


algunos de nuestros programas para los 

ordenadores personales 

t commodore 

















































































































































































El BASIC 4.75 de C ommodore es el 
más completo de los aparecidos hasta 
hoy para los ordenadores CBM. /Am¬ 
plía Jas posibilidades del popular 
intérprete en algunas facetas impor¬ 
tantes, pero manteniendo la compati¬ 
bilidad con las anteriores versiones 
del lenguaje. Los códigos binarios de 
las palabras clave (TOK EN) son idén¬ 
ticos para todas las instrucciones 
comunes con versiones anteriores 
(Tabla 1). 

La última revisión importante del 
BASIC para los equipos Commodore 
fue la versión 4.0. vigente desde 1979. 
y que vino a integrar una serie de 
comandos orientados, sobre todo, al 
soporte de los discos y al tratamiento 
de cadenas. 

Ahora, el BASIC 4.75 asume todas 
las prestaciones del 4.0 v añade nove¬ 
dades en los siguientes aspectos mos¬ 
trados en la figura 1. 

Pasemos a comentar alguna de 
estas posibilidades. 

IF... THEN... ELSE 

Forma general: 

IF (expresión); THFN (cláusula 
then); (:ELSE (cláusula else)). 

La bifurcación condicional con 
ELSE añade flexibilidad y claridad a 
los programas. Lo primero que hace 
el intérprete es evaluar la expresión 
lógica que sigue al IE. Si la expresión 
vale distinto de cero (es cierta), se 


Tabla 1A. 


TOKEN 

VERSION 1-3 

CLAVE DE PALABRA 

TOKEN 

VERSION 1-3 

CLAVE DE PALABRA 

128 

END 

166 

SPC 

129 

FOR 

167 

THEN 

130 

NEXT 

168 

NOT 

131 

DATA 

169 

STEP 

132 

INPUTj* 

170 

+ 

133 

INPUT 

171 

— 

134 

DIM 

172 

★ 

135 

READ 

173 ' 

/ 

136 

LET 

174 

A 

137 

GOTO 

175 

AND 

138 

RUN 

176 

OR 

139 

IF 

177 

> 

140 

RESTORE 

178 

C-c-T * 

ae 

141 

GOSUB 

179 

< 

142 

RETURN 

180 

SGN 

143 

REM 

181 

INT 

144 

STOP 

182 

ABS 

145 

ON 

183 

USR 

146 

WAIT 

184 

FRE 

147 

LOAD 

185 

POS 

148 

SAVE 

186 

SQR 

149 

VERIFY 

187 

RND 

150 

DEF 

188 

LOG 

151 

POKE 

189 

EXP 

152 

PRINTf 

190 

eos 

153 

PRINT 

191 

SIN 

154 

CONT 

192 

TAN 

155 

LIST 

.193 

ATN 

156 

CLR 

194 

PEEK 

157 

CMD 

195 

LEN 

158 

SYS 

196 

STR$ 

159 

OPEN 

197 

VAL 

160 

CLOSE 

198 

ASC 

161 

GET 

199 

CHR$ 

162 

NEW 

200 

LEFT$ 

163 

TAB 

201 

RIGHT$ 

164 

TO 

202 

MID$ 

165 

FN 

203 

GO 


Figura 1. 
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KEY 

DELETE 

IF...THEN...ELSE 
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ejecutarán la cláusula o cláusulas que 
siguen al término THEN. hasta en¬ 
contrar la partícula EL SE o el fin de 
la línea. La cláusula ELSE se salta, v 
la ejecución continúa en la línea 
siguiente. Por el contrario, si la expre¬ 
sión lógica vale cero (es falsa), se 
ignora cuanto sigue a THEN, y se 
ejecuta la cláusula o cláusulas que 
siguen a ELSE hasta encontrar el fin 
de línea. 

La única restricción importante de 
esta variante de la bifurcación condi¬ 
cional, como de cualquier otra ins¬ 
trucción del BASIC de Commodore, 
es que su longitud no debe superar el 
número de caracteres permitidos para 
una línea. ; 

Afortunadamente, la longitud de 
una línea en la versión que comenta¬ 
mos es de 160 caracteres, a diferencia 
de las anteriores que era sólo de SO. 
Ver el ejemplo de la figura 2. 


DISPOSE son las herramientas que 
proporciona el BASIC 4.75 de Com¬ 
modore para que el usuario pueda 
hacer su propio tratamiento de erro¬ 
res durante la ejecución del progra¬ 
ma, sustituyendo con sus propias 
rutinas la actividad normal del intér¬ 
prete, que generalmente concluye con 
la emisión de un mensaje y la deten¬ 
ción del programa. 

La sintaxis de la instrucción TRAP 


es: 


TRAP (número de línea) 
“Número de línea 1 es la dirección 


de la primera instrucción de la rutina 
de tratamiento de error especificada 
por el usuario. Esta rutina puede 
seleccionar los errores que ha de 
procesar utilizando las variables re¬ 
servadas ER, que contiene el número 
del error de acuerdo a la Tabla 2. y 
EL, el número de la línea donde está 

la instrucción que causó el error. 

• 1 



Para pasar de nuevo al tratamiento 
estándar de errores del BASIC, se 
pone en el programa una nueva 
sentencia TRAP. esta vez sin número 
de línea. 

RESUME sirve para conseguir que 
el programa BASIC prosiga su acti¬ 
vidad. una vez detectado y procesado 
el error. Sin parámetros, este reinicio 
tiene lugar en la instrucción donde 
ocurrió el error, y en la forma RESU¬ 
ME NEXT, en la instrucción siguien¬ 
te a la del error. 

Cuando se ejecuta RESUME, vuel¬ 
ve a quedar habilitada la detección y 
tratamiento por programa de los 
errores (que no es posible una vez 
ejecutada una sentencia TRAP), y se 
inicializan de nuevo las variables ER 
y EL. 

DISPOSE EOR o DISPOSE GO- 
SUB se utilizan también en este con¬ 
texto de tratamiento de errores, para 
salir de un bucle EOR o de una 
subrutina cuando se ha producido un 
error en ellos y no se desea finalizar 
su ejecución. 

ERRS (expresión entera) es una 
variable que contiene el texto del 
mensaje de error estándar correspon¬ 
diente a “expresión entera (que debe 
estar entre 0 v 127) (Tabla 2). La 


Esta pequeña rutina, comprueba si 
el número introducido por teclado es 
o no un número entero, comparándo¬ 
lo con el resultado de invocar la 
función que devuelve la parte entera 
de un número. El último valor a 
probar es el número 9999. 

Las sentencias IF se pueden anidar 
o nidificar mientras lo permita la 
longitud de la línea. Así por ejemplo, 
podríamos escribir: 

IF X >Y THEN PRINT “MAYOR" 
ELSE IF Y >X THEN PRINT 
“MENOR": 

ELSE PRINT “IGUAL 11 . 

Para resolver el clásico problema 
del tamaño relativo de dos números. 

Tratamiento de errores 

Las sentencias TRAP. RESUME y 



CODIGO 

MENSAJE 

CODIGO 

MENSAJE 

0 

STOP KEY DETECTED 

25 

OVERFLOW 

1 

TOO MANY FILES 

26 

OUT OF MEMORY 

2 

FILE OPEN 

27 

UNDEFINED STATMENT 

3 

FILE NOT OPEN 

28 

BAD SUBSCRIPT 

4 

FILE NOT FOUND 

29 

REDIMID ARRAY 

5 

DEVICE NOT PRESENT 

30 

DIVISION BY ZERO 

6 

NOT INPUT FILE 

31 

ILLEGAL DIRECT 

7 . 

NOT OUTPUT FILE 

32 

TYPE MISMATCH 

8 

MISSING FILE ÑAME 

33 

STRING TOO LONG 

9 

ILLEGAL DEVICE NUHBER 

34 

FILE DATA 

II 

BAD DISK 

35 

FORMULA TOO COMPLEX 

14 

BREAR 

36 

CANNOT CONTINUE 

15 

EXTRA 1GNORED 

37 

UNDEFINED FUNCTION 

16 

REDO FORM START 

38 

LOAD ERROR 

20 

NEXT WITHOUT FOR 

39 

VERIFY ERROR 

21 

SYNTAX ERROR 

40 

OUT OF STACK 

22 

RETURN WITHOUT GOSUB 

41 

UNABLE T0 RESUME 

23 

OUT 0F DATA 

42 

UNABLE TO DISPOSE 

24 

ILLEGAL QUANTITY 
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TOKEN VERSION 1-3 VERSION 4 VERSION 4.75 

CLAVE DE PALABRA CLAVE DE PALABRA CLAVE DE PALABRA 


204 

? SINTAX ER ROR(1) CONCAT 


205 

x DOPEN 


206 

DCLOSE 


207 

RECORD 


208 

HEADER 


209 

COLLECT 


210 

BACKUP 


211 

COPY 


212 

APPEND 


213 

DSAVE 


214 

CATALOG 


215 

RENAME 


216 

SCRATCH 


217 

DIRECTORY 


218 

7SYNTAX ERROR (1) 

DCLEAR 

219 


BANK 

220 


BLOAD 

221 


BSAVE 

222 


REY 

223 


DELETE 

224 


ELSE 

225 


TRAP 

226 


RESUME 

227 


DISPOSE 

228 


PUDEF 

229 


USING 

230 


ERR$ 

231 


INSTR 

232 


7SYNTAX ERROR (1) 


Tabla IB. 


rutina de tratamiento del usuario 
puede cambiar el texto del mensaje si 
ello conviene a sus propósitos. 


Impresión con formato 

El formato y disposición de la 
salida impresa de un programa cobra 
una importancia decisiva cuando el 
ordenador se utiliza para aplicaciones 
de gestión, como contabilidad, pre¬ 
supuestos. recibos y facturas o decla¬ 
raciones de impuestos. Con la incor¬ 
poración de la instrucción PRINT 
US1NG, el BASIC de Commodore 
consigue una presentación impresa de 
números y cadenas de caracteres muv 
flexible y adaptada casi a cualquier 
situación. Ciertamente ésta es una de 
las facetas de la versión 4.5 más 


prácticas y mejor conseguidas de cara 
a las aplicaciones corrientes que tie¬ 
nen como resultado un informe im¬ 
preso (¡qué aplicación informática no 
lo tiene!), especialmente cuando la 
salida está destinada a ser utilizada 
por personal ajeno a la aplicación y 
generalmente no relacionada con su 
mecanización. 

Este grupo de instrucciones parece 
pensado para adictos al COBOL (con 
sus famosas P1CTURE o descripcio¬ 
nes de formato). 

No llega a tanto como él. pero 
servirá seguramente para despertar 
las añoranzas (o las fobias) de algún 
programador/que antes haya estado 
desarrollando aplicaciones para orde¬ 
nadores “grandes” (sic). 

La sintaxis de la instrucción es: 

PRINT USING (formato): (lista). 


“Formad * es una colección de 
símbolos Clamados “campos de for¬ 
mato'*) que especifican cómo tienen 
que salir impresos los valores de las 
variables expresiones que figuran en 
“lista"*. Debe haber tantos campos de 
formato como \alores a imprimir en 
la lista correspondiente. 

Sin entrar a analizar la sintaxis y 
todos los detalles de la correcta utili¬ 
zación de cada uno de los símbolos 
que pueden aparecer en un campo de 
formato, destacaremos algunas de sus 
posibilidades más interesantes. 

Signo monetario: Si se especifica 
“$**' en un campo de formato, el 
correspondiente valor numérico se 
imprimirá con el S delante del primer 
dígito significativo. Este signo es re¬ 
definible. 

Signo algebraico: En la primera o 
en la última posición del campo de 
formato, puede especificarse el signo: 
+ ó —. Con +, el signo aparece 
siempre: con —, sólo cuando el nú¬ 
mero es negativo. 

. Justificación: El signo en un 
campo de formato especifica que el 
valor alfanumérico al que se hace 
corresponder se imprimirá centrado, 
y no justificado a la izquierda como 
ocurriría normalmente. El signo “> 
lo justifica a la derecha. 

Punto decimal: El punto (.) designa 
la separación de la parte entera y 
fraccionaria de un número. Lógica¬ 
mente sólo puede aparecer una vez en 
el campo de formato. Este carácter es 
redefinible. 

Comas de separación: Para sepa¬ 
rar. por ejemplo, grupos de tres cifras 
en la parte entera. También es redefi¬ 
nible. 


Redefinición de caracteres de formato 

La instrucción del BASIC 4.75 que 
permite hacerlo es: 

PUDEE (cadena de control). 

Los símbolos redefinidos con PU- 
DEF afectarán a todas las PRINT 
USING que aparezcan más adelante 
en el programa. 
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. En ‘“cadena de control * pueden 
aparecer de uno a cuatro caracteres. 
El símbolo que aparezca en primer 
lugar corresponde al carácter de re¬ 
lleno. que por defecto es el “blanco". 
El que aparezca en segundo lugar en 
la “cadena de control’*' será el que 
sustituirá al carácter estándar de se¬ 
paración de grupos de tres cifras, que 
por defecto es la coma (.). Es usual en 
nuestro entorno, utilizar para esto el 
punto (.) en lugar de la coma. 

En tercera posición viene precisa¬ 
mente el carácter que deseamos re¬ 
presente el punto decimal (por defec¬ 
to el Los programadores espa¬ 

ñoles pueden poner aquí la coma (,). 


E i nal mente, en cuarto lugar, se pone 
el carácter que se desea aparezca 
como símbolo monetario ($. por de¬ 
tecto). Lo que desgraciadamente no 
puede cambiarse, al menos por este 
procedimiento, es que el símbolo 
monetario aparezca después v no 
antes del campo numérico. 

La redefinición con PUDEE de 
estos caracteres no implica que hava 
que cambiarlos en las especificaciones 
de formato de PRINT USING. Aquí 
se emplean siempre los normales, v 
BASIC sabe, a través de PUDEF, los 
cambios que habrán de hacerse a la 
hora de imprimir. Ver el ejemplo de la 
figura 3. 


10 REM . 
15 CANT = 
20 PUDEF 

30 PRINT 
RUN 


...INTERCAMBIO DE COMA Y PUNTO 
-1234.567 


tí 


tf 


USING ##";CANT 


-$1 . 234,57 


Figura 3 


Notas 

1. Cada signo “¿T reserva espacio 
para un dígito. 

2. PUDEF respeta el carácter 
de relleno estándar v no dice nada 
sobre el signo monetario. En conse¬ 
cuencia estos caracteres no se ven 
afectados. 

Otras posibilidades 

BLOAD y BSAVE cargan y salvan 
respectivamente un fichero binario, 
a/desde un banco de memoria especi¬ 
ficado. DCLEAR inicializa una uni¬ 
dad de disco (lo que en anteriores 
versiones se hacía abriendo el canal 
OPEN 15, 8, 15 v escribiendo la orden 
pertinente PRIÑT = 15. I(x)). 

Finalmente, INSTR es una nueva 
función intrínseca muy útil para los 
trabajos con cadenas de caracteres. 
Realiza la búsqueda de una subcade¬ 
na en una cadena dada, a partir de un 
lugar determinado, y devuelve como 
resultado el número entero corres¬ 
pondiente a la posición donde la 
encuentra por primera vez (ó 0 si no 
la halla). 


novo/digit 

microinform atica 

C/ Aragón, 472 Telf. (93) 246 27 75 
-BARCELONA-13 

SU TIENDA DE INFORMATICA 
CONOZCANOS!! 


TENEMOS MUCHAS COSAS PARA: 




COMMODORE-64 VIC-20 SINCLAIR ORIC 

Y OTROS 


- Si no tenemos lo que busca se lo encontraremos en un tiempo record 

y a un precio mínimo 

DISPONEMOS DE CLUB DE VIDEO JUEGOS 

SI NO TIENE MICROORDENADOR, 

LE DEJAMOS PROBAR NUESTROS EQUIPOS SIN COMPROMISO 
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Nada mejor para los aprendices de 
astronauta que este programa, llama¬ 
do ALUNIZAJE,que recibimos desde 
Barcelona de Bernardo Berrocal Mar¬ 
tí. Se trata de aterrizar un módulo 
lunar sobre la superficie de la luna 
teniendo buen cuidado para no estre¬ 
llarse, lo que no es nada fácil. Para, 
ello hay que controlar el módulo 
mediante las teclas Z, X, C\ M y N,tal 
v como se indica en las instrucciones 


al comienzo del programa. Además, 
hay que tener en cuenta que no se 
puede aterrizar en cualquier parte, 
sino que hay que hacerlo en una de 
las varis plataformas previstas para 
ello. Cada vez que se logra alunizar 
sin percances, se obtiene como re¬ 
compensa una cierta cantidad de fuel, 
además de unos cuantos puntos. Si. 
por el contrario, no se consigue aluni¬ 
zar, hay que volver a intentarlo una y 


O 
O 
O 
O 
O 
O 
O 
O 
O 
O 
O 
O 


O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


1 00 
110 
120 
130 


OOSUB1000 

P0KE36869,255 : PQKE36879,8 : P0KE36878,15 

pr i nt H -: 

PRINr'XMKS ALUNIZAJE " 


•i 


ii 


140 PR I NT " wswna- 

150 FRINT"W«*»I3 Z X C N M" 

160 PR I NT " ; CHR$ < 34 > ; " #" 

170 PRINT"»»»*IHW**>»*IO*í <" 

19@ PRINT"XWMSW PULSE UHfi TECLA 
195 K=PEEKí197 > : IFK=64THEN195 
2 ft 0 F = 1 000 : S C=0 

2 i ¿ VX=36 : VV=0 • X“0 : V=3 : P=7724 '• Q=P : E=3 : C=34 -V=22 • : H=3 • 3=2 • T=32 : G= 1.6 


VIC-20 


otra vez hasta que se acabe el fuel, y 
con él la partida. El módulo inicial¬ 
mente lleva un cierto impulso hacia la 
derecha además de la fuerza de atrac¬ 
ción de la gravedad lunar, presente en 
todo momento, y que tira de él hacia 
abajo. La misión del jugador es con¬ 
trarrestar todo este conjunto de fuer¬ 
zas, mediante el teclado del VIC,con 
la habilidad suficiente para conseguir 
un alunizaje suave. 


O 

O 

O 

O 

O 

O 

O 

O 

O 

O 

o 

o 


O 

o 

o 

230 

300 

GOSUB2000 

K=PEEK< 197) : IFK=64THENÑ=0 : E=Ü ; 11=32 : P0KE36877.. 8 • G0T0448 

l s 

o 

310 

IFK=33THENC=33•E=1 : V=-l : G0T0368 

o 

o 

320 

IFK=34THENC=35:E=2 = V=1 : G0T0368 

o 

o I 


IFK=26THENC=34 : E=3'V=22 : G0T0368 

1 0 

o 

340 

I FK=28THEHS=2 : H=3 : G0T0368 

1 o 

o 

350 

IFK=36THENS=4 : H=6 

I O 

o 

360 

IFS=2THEHP0KE36877,258 

o 

o I 

370 

IFS=4 THENP0KE36877■248 

o 

o 

400 

IFE=1THEHÑ=S : E=8 

0 

o 

410 

IFE=2THENA=-S : B=8 

1 o 

o 

420 

IFE=3THENA=0•B=-S 

1 o 

o 

430 

D=C+H 

1 ° 

o 1 
_ 1 

440 

IFF>8THEH580 

0 


450 H=ü ; B=0 : I»=32 : P0KE36877,0 

460 PR INI" ^fípMpMpípM í E ACABO EL FUEL"; 

VX=VX+fi:VV=VV+G+B 

X=X+VX+ñ/2 ; V=Y+W+ <G+B>X2 : F=F- < BBS(ñ > +ABS<B>> 

528 DX=INT(X/400>•BV=INT < t/400> 

530 N=P : M=Q 

540 P=7724+D X+DV$22 

Q = p+'./ 

POKEM, T : POLEN, 32 * T=F‘EEK < Q > : U=PEEK < P > 

IFUO32THEN700 
570 POKEQ, D • POKEQ+30720 .* 2 • POKER, C • POKEP+30720 .• 1 
58G PRINT m !Í1 • H ; 

590 pr i nt 4 * ; i nt < vx >; tbb < 3 >;" wm "; i nt < vv >; tbb 1 5 ;•;" fiFríi"; f 

600 GOTO30Q 


500 

510 


cirr. 

._i ,_i M 

560 

. . i 
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o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
O 
o 



zlrus- 


NUMERO 5 


































oooooooooooooocoooooooooooooooooooooooooooooooooooooooooooooo 
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f KJ 

7 10 

720 
730 
740 
OTO760 

'"‘Sfi 


I F : U T > 4 3 T H E N 7 5 0 
I F'v'V >20THEN740 

IFVVC5THENPRI NT " mm »MMKÍIBIJEN fiTERR IZH JE"; ; PO~300 • PF = 100 : GOT0800 

PRINT"i^üMiüleüi» i & » ft ISCTL.Ü LOGRASTE" • PÜKE36876,200 • FÜRV = 1TQ509 : HEXT *■ P0KE36876¿0 : G 


i* -JK! 

760 

í i 'J 


PR T NT" ^IfiMi-liilr^TERF: I ZH JE I LEGRE " : PO=0 • PF=0 : GOTÜ780 
IFVV<10THENPÜ=200 : PF=5@ : COTOS00 
PQ =1 00 : PF~“20 : GOT08010 
780 POKER,45:PQKEP+38728,2 

790 FÜRI=254TO128STEP-2:P0KE36877,I•HEXT : P0KE36877,O 
800 p o R D :=: 1T01009 N E X T 

IFP<7’944T H E M P O=P O # 3 : PF~PF*3 ; GOTO850 
IFP<8810THENPO=PO#2 : F‘F=PF$2 ; GOT0850 


y 1 í.i 


, ¡ I.H 

■_ ! C- V J 


8 3 y IF P < 8 i 2 0 T H E H 8 5 8 
P0=PÜ#5 : PF : =FF$5 


i_i 

850 


U’ 

! 1 


.O 


+ " ; PU : PR I NT »;(üHpppWISFUEL + " ; PF 


860 S C ™ S C+P 0 F F+P F 
FORD-iTO1000 : NEXT 
IFF>0THEN210 


.-I.-» 
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908 PRINT'LmM^ 
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R" 
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920 
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pr i nt h u ; 


2059 

2068 
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PR I NT " .. H 


PRINT ,, *3 
PRINT"#** 
PRINT n *** 
PR I NT " 
PRINT" 


; SPC 

< 28> 

• 11 11 • 

• .1 ,i 

SPC( 

18>, 

n n • 

, T ) 

SPC( 

17); 

",m u 

SPC< 

17); 

"+m" 

SPC 

(16 ) 

; “ 

; SPC 

(16 > 

; " 


ii 


ii 


r% r* 2" 
i ü b A 


rj . n i 
‘+T kü- 

+ 371-:: 


211 0 

PRINT" 


m* 

r «li 1 n 11 • 

.1 i^T"r fc ».« y , 

2120 

PRINT" 

m*. 

*** 


2130 

PPINT" 


*** 


2140 

PRINT" 




2158 

PRINT" 




2160 

PRINT" 

mm 

, r*-++s, 



ii 

ii 



2178 PR I NT" wm***m ***, , . r áH-+3, , ++** " 

2188 PR I NT" * SSiRLUN I ZfiJ 

2198 pr i nt M 

2200 PQKE8185,42•PÜKE38985,6•RETURH 


^Sí>:5 
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mo. la opción FINALIZAR permite 
salir del programa. 

Al elegir la opción LOCALIZAR 
aparece en nuevo menú, con cuatro 
opciones, para poder llevar a cabo la 


búsqueda de fichas según el conteni¬ 
do de los diversos campos. 

Con este programa y el CBM 64 va 
no hace falta comprar más listines 
telefónicos. 


AGENDA es un programa para 
garantizar un fichero con 6 campos: 
nombre, apellidos, dirección, pobla¬ 
ción, provincia y teléfono. Nos lo 
remite Ginés Plaza López, de Madrid. 
Cada uno de los ficheros se almacena 
en cinta. Al empezar el programa se 
puede elegir entre crear un fichero 
nuevo o cargar uno que estuviera 
almacenado en cinta. Posteriormente, 
el programa pasa al menú principal 
con las opciones de LOCALIZAR, 
INSERTAR o FINALIZAR. 

La opción LOCALIZAR permite 
buscar a través de los registros del 
fichero y según el contenido de cual¬ 
quiera de los campos, hasta dar con 
los datos que se desee. La opción 
INSERTAR permite añadir nuevas 
fichas al fichero cuando sea necesa¬ 
rio. fichas que posteriormente se pue¬ 
den almacenar en la cinta. Por últi- 


u 

O 

O 

O 

O 

O 

O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


Commodore 64 
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5 PRINT'^a R G E N D 

10 DIM NO*< 100> , RP*< 100> . RU$100> 

20 DI n CI * <1 00), TE* a 00 ), PE* < 100 ;■ 

30 GR=8 : N=0 

40 F'RINT"ílíiUDESER CRERR UN NUEVO FICHERO? <S/N>" 

50 GET H* : IF D*="" THEN 50 

60 IF B*= n S" THEN 1300 

70 IF Ii*0"N" THEN 50 

80 OREN 1,1,0,"FICHERO AGENDA" 

90 INPUT#1,N 
100 FOR 1=1 TU N 
110 INPIJT#l,NO*a> 

120 INPUT#1,CI*U) 

130 NEXT I 
140 GLOSE 1 
200 PRINT'TM 
210 PRINT'füMílJ 
220 PRINT"H 
230 PRINT"M 
250 PRINT"M 


n 


INPUT#1,RP$<I) 
INPUT# 1 .• TE* ( I > 


INPUT#l,RU*a> 

INPUT#l,PR*a> 


N D R 


R U E 

QUE OPERACION DESEA REALIZAR?:^" 

LOCALIZAR.<L>" 

INSERTAR.__ .<I>" 

FINALIZAR.<F>" 

260 GET D* : IF D*="" THEN 260 
270 IF D*="I" THEN 1300 
280 IF Ii$="F" THEN 1400 
290 IF ri*O n L" THEN 260 

300 .PRINT'TMl LOCALIZA C I 0 N 

310 PRINT"W POR QUE CLAVE QUIERE BUSCAR?" 

320 PRINT"W NOMBRE:<N> H 

330 PR I NT "!« APELLI DO < S > • <A> " 


m 
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340 PRINT" ¿fl 


350 

360 

370 

380 

390 


410 

420 

430 

440 

450 


470 

480 


510 

cr i cr 

i J 
nr .-i 
•JdU 

530 

540 

550 

560 

600 


620 

630 

O O J 

6 4 0 

6 5 0 
660 
670 
680 
690 
700 

7 i 0 
720 
730 
740 
750 
768 

•**i 

í r kj 

780 

785 

790 

800 

818 

820 
O •“-* iJi 

840 
850 
860 
870 
880 
890 
900 
910 


CIUDAD :<»” 

PRINT"S PROVIHCIñ = <F>" 

PRINT"MSBI DESEA LISTADO COMPLETO,PULSE CT>" 

GET DÍ¡IF D$="" THEM 370 

IF Df="N" THEM 510 

IF Bi="A" THEM 1000 

IF DÍ="C" THEM 1100 

IF D$="P" THEM 1200 

IF DiO"T" THEM 370 

PR I NT " □STi IRECCIONES V TELEFONOS. M" 

FOR 1=1 TO N 
GOSUB 21@0 
NEXT I 

PRINT"MPARR CONTINUAR, PULSE UNA TECLA" 

GET D$: IF B$="" THEN 480 
GOTO 200 

PR INT" «HOMBRE"; : I HF'UT Xi: PR INT" ¡T 
SW=0 

FOR 1=1 TO N 

IF LEN (. Xi)>LEH<NOi < I > > THEN 550 
IF LEFTi<NÜ$<I),LEN <Xi)>=XÍ THEN GOSUB 2100:SW=-1 
NEXT I 

IF NOT SW THEN PRINT"N0 HAV NADIE CON NOMBRE "; Xi '■ GOTO 470 
PRINT " QU .TERE HACER ALGIJN CAMBI n "■ 1 ' 

GET D$ : IF Dí="" THEN 610 
IF I'if="N" THEN 200 
IF DÍO"S" THEN 610 
GR=-1 

F'R I NT "MACTUALIZACION O BORRADO? " 

GET I¡$- IF DT="" THEN 650 
IF D$="A" THEN 750 
IF DÍO"B" THEN 650 

PRINT"SINDIQUE HUMERO DE ELEMENTA A BARRAR"; 

I HF'UT S 

IF S>N THEN F'RIMT" SNO EXISTE. "= GOTO 740 
NOí <S ) =NO$<N > i APt < S ) =AF’$ <H ) : RUS<S> =RIJ$ <N ) 

CI $ <S > =C I $<N > : TE:f <S > =TEf <N > : PRT <S) =F'Pf <H 
N=N -1 

PRINT"MflLGUN CAMBIO MAS?":GOTO 610 

PRINT"SINDIQUE NUMERO PARA ACTUALIZACION"; 

INPIJT S 

IF S>N THEN PRI NT "SNO EXISTE. " GOTO 740 
PRINT"SSI LO QUE SE MUESTRA ES VALIDO, 

PRINT"EN CASO CONTRARIO, ENTRE EL NUEVO VALAR" 

PRINT"«NOMBRE: ";HOÍ< S >; 

INPIJT DTLIF LEN<DT><= 1 THEN 820 
NOí<S >=DÍ 

PRINT"AF’ELLIDOS•' ",AF'$CS> 

IN P UT Dí : IF LEN<D$><=1 THEN 850 
APÍCS>=DÍ 

PRINT"DIRECCIOH: ",RUT c 8>; 

INPUT Di : IF LEN<Di)OI THEN 880 
RUiíS)=Di 

PR I NT " POBLFlC I ON : "CI i < S >, 

INPUT Di IF LEN<Di)01 THEN 910- 
CIÍ<S)=Di 

PR I NT " PROV I HC IR: "F'Ri 


ENTRE UNA TECLA," 


: < S > 
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Viene de la página anterior 
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920 INPUT D* : IF LEN<D*>01 THEN 940 

940 F’RIHT" TELEFONO: " , JET<S) 

950 INPUT D* : IF LEN <D*>O1 THEN 970 
960 TEf<S>=D* 

370 GOTO 740 

\000 PRI NT" MñPELLI DO<S > " ; ♦ INPUT X* : PRI NT "73" 

1010 SW=0 
1020 FÜR 1=1 TO N 

1030 IF LEN<X*>>LEN<ñP*a>> THEN 1050 
1040 IF LEFT* (RF‘*(I >, LEN<NT-> >=X* THEN GÜSUB 2100-SN=-1 
1050 NEXT I 

1060 IF NÜT SW THEN PRINT"NÜ HfiV NñDIE CON LOS ñPELLIDOS 
1070 GOTO 600 

1 í 00 PR I NT 1 " ¿CI UDflD " ; : I NPUT X* • PR I NT" r J" 

1110 SW=0 <5 

1120 FÜR 1=1 Tü N 

1130 IF LEN<X#)>LEN<CI * < I > > THEN 1150 

1140 IF LEFT*CI*< I > .• LEN<X* > ) =X* THEN GÜSUB 2100:SW=-1 ' 

1150 NEXT I 

1160 IF NÜT SW THEN PRINT"NÜ HñV NFlDIE DE " j X* : GOTO 470 
1170 GOTO 600 

1200 PR I NT " MPRÜVI NÜ I ñ " , • I NPUT X* • PR INT M IT* 

1210 SN=Ü 

1220 FÜR 1=1 TÜ N 

1230 IF LEN<X*>>LEN<PR*I > > THEN 1250 
1240 IF LEFT* < PR*<I>,LEN <X* >>=X* THEN GÜSUB 2180:SW=-1 
1250 NEXT I 

1260 IF NÜT SW THEN PRINT"NÜ HñV NñDIE DE Lñ PRÜVINÜIR ";X*:GOTO ¿72 
1278 GOTO 600 

1300 PR I NT" 73Si I N S E R C I 0 N 

1305 N=N+1:GR=“1 
131U INPUT"WNÜMBRE";NÜ* <N > 

1320 INPUT" WñPELLIDOS"¡RP*(N > 

1330 I NPUT" MÜñLLE V NUM" J RU*»: N) 

1340 INPUT" PFÜBLñCIÜN";ÜI* <N > 

1350 INPUT" SFRÜVINÜIR";PR*(N > 

1360 INPUT"^TELEFONO" ; TE* CN> 

1370 GÜTiJ 208 

1408 IF GR THEN GÜSUB 2800 
1410 END 

2000 ÜPEN 1,1,1, M FIÜHERÜ fiGENDfl" 

2010 PRINTttl,N 
2020 FÜR 1=1 TO N 

2030 PRINT#1,NÜ*<I>:PRINT#1,RP*<I>:PRINT#1,RU* <I> 

2048 PRI ITT#1,ÜI$<I>:PRINT#1,TE*<I>•PRINT#1,PR*(I> 

2058 NEXT I 
2060 GLOSE 1 
2870 RETURN 

PRINT I;"-- ".¡Nü*(I);" " ;RP*a> 

PRINT TñB(5 >,RU* <I>;" -- ";üI*<I) 

2120 PR I NT TñB '• 8 >; " TFNO : " ¡ TE* (I >;" <"; PR* < I >; " > “ 

2140 RETURN 


i GOTO 470 
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CONCURSO MENSUAL DE COMMODORE MAGAZINE 


Su Programa Para Cualquier 

Sistema Commodore 
Puede Hacerle Ganar 5.ooo Ptas. 


E l presente 

CONCURSO ESTA 
ABIERTO A TODOS 
NUESTROS LECTORES 
Y SU PARTICIPACION 
E INSCRIPCION ES 
GRATUITA. 

LEA LAS BASES DEL 
CONCURSO 


■ NO SE ESTABLECEN LIMITACIONES 
EN CUANTO A EXTENSION. TEMA ELEGIDO 
O MODELO DE ORDENADOR 


■ LOS CONCURSANTES DEBERAN 
ENVIARNOS A LA DIRECCION QUE FIGURA 
AL PIE. EL CASSETTE O DISKETTE 
CONTENIENDO EL PROGRAMA. UNA 
EXPLICACION DEL MISMO Y. 

AL SER POSIBLE. UN LISTADO EN PAPEL 
DE IMPRESORA. SE PODRAN ENVIAR 
TANTOS PROGRAMAS COMO SE DESEE 


■ LOS PROGRAMAS. PREVIA SELECCION. 
SERAN PUBLICADOS EN LA REVISTA. 
OBTENIENDO TODOS ELLOS 5.000 PTAS. 


■ LA DECISION SOBRE LA PUBLICACION 
O NO DE UN PROGRAMA CORRESPONDE 
UNICAMENTE AL JURADO NOMBRADO 
AL EFECTO POR “COMMODORE MAGAZINE”. 
SIENDO SU FALLO INAPELABLE 


■ LOS CRITERIOS DE SELECCION 

SE BASARAN EN LA CREATIVIDAD DEL 

TEMA ELEGIDO Y LA ORIGINALIDAD 

Y/O SENCILLEZ EN EL 

METODO DE PROGRAMACION GLOBAL 


■ ENVIAR A: 

CONCURSO COMMODORE MAGAZINE 



C/Bravo Murillo, 377. Madrid -20 




















Ma^Q'Ktos] 


VIC-20 


José Antonio García Cortés nos 
envía, desde Barcelona, el programa 
MASTERMIND para el VIC 20, sin 
expansión de memoria. Para quien no 
lo conozca diremos que el Mastermind 
es un juego entre dos jugadores, en el 
cual, cada uno de ellos, debe adivinar 
cierto número secreto pensado por su 
oponente, con el mínimo número de 
intentos posible. 

En este programa es el ordenador 
quien genera un número aleatorio, 
con el número de cifras que elija el 
jugador al comenzar la partida y sin 
que ninguna de las cifras aparezca 


repelida. A partir de aquí el ordena¬ 
dor pedirá que se realice la primera 
jugada. El jugador tiene que escribir 
un número, que es analizado por el 
programa, y que sólo es admitido si 
cumple con el número de cifras, si no 
repite ninguna de ellas y si dichas 
cifras están comprendidas entre uno y 
nueve, ambas inclusive. Para cada 
jugada que realice el jugador y que 
sea admitida como correcta el orde¬ 
nador la hará figurar en una lista de 
las jugadas realizadas, y mostrará, al 
lado de dicha jugada, el balance de 
aciertos conseguidos. Por cada cifra 


correcta, que esté en la combinación 
secreta y en la misma posición que en 
la jugada, aparecerá un trébol en la 
pantalla, mientras que por cada cifra 
presente en la combinación secreta, 
pero en distinto lugar que en la 
jugada, aparecerá un carácter @. 

Existe un número máximo de 20 
intentos para adivinar la combina¬ 
ción, pero si antes de esos 20 intentos 
el jugador se da por vencido, podrá 
ver cuál era el número secreto sin más 
que pulsar la tecla S, después de lo 
cual, el ordenador preguntará si se 
desea jugar de nuevo. 
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10 REM MRSTER-MIND 

20 CLR:PRINT" d" •P0KE36879,221:GOSUB2000 
30 PRINT"KDEBE8 RCERTRR LR COM- BINRCIQN SECRETR EN" 

40 PRINT"MENOS DE 21 JUGRDR8." 

50 PRINT"LOS 81ONOS DE INFORMR-CIQN SOBRE TUS RCIER- TOS SON:" 

70 PRI NT" mm : INDICR QUE HR8" 

30 PRINT" RCERTRDO UN" 

90 PRINT" NUMERO V SU" 

100 PRINT" POSICION" 

110 PRINT" WII8 : INDICR NUMERO" 

120 PRINT" RCERTRDO PERO NO SU POSICION" 

130 PRINT"NUMERO DE DIGIT0SC2-8)" 

135 INPUTN 

140 IFN<2QRN>8THEN130 
180 PRINT"¡T :GQSUB2000 
190 F0RR«1TQN 

200 C<fl) - INT(<RND<1)#9)+l) 

210 IFR«1THEN240 

220 FORV-lTOR-l : IFC<R)*C(V)THENV-R •' NEXT : GQTQ200 
230 NEXT 

240 NEXT 1 F0RV»1T0N • H$*8TRfCCCV)):C$<V)*RIGHT$<H$,1)•NEXT 
230 FORVMTON ; S$*S$+C$(V> : NEXT 

235 X*X+1:IFX»21THENPRINT"M20 JUGRDRS. PERDISTE. SOLUCION: "S$:GQTQ430 

236 PRINT 

260 INPUT"JUGRDR";N$ 

265 IFNf""8"TNENPRINT"SOLUCION: "S$:QOTO430 
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270 IFLEN<N$X>NTHEN3000 

280 FQRV"1TON:IFMID$ < Nf,V,1X"1"ORMID$ < N*,V,1)>"9"THENV-N • NEXT 5 GQTQ3000 
290 NEXT 

310 FORV*lTON‘FORH«lTON: IFMID$(N$, V. DTHEN330 

320 NEXT : NEXT•GQTQ330 

330 IFV^HTHENNEXT¡GOTQ330 

340 H"N:V-N•NEXT:NEXT:GOTO3000 

330 FQRV®1TON ; IFMID$CN$^ V>1)®MID$<S$> V;1)THENM$"M#+"* M 
360 NEXT 

370 FORV®1TON í FORP®1TON * IFMID$(N$;P ¿1)OMIDS < Si* V >l)THENNEXT • NEXT J GOTO400 
380 IFV-PTHENNEXT : NEXT:GOTO400 
390 : NEXT • NEXT 

400 PRINT'TI 

405 PRiNT ,, ma ,, x; ,, ii ■"N$"«-rrM$"ar 

410 IFN$*S$THENPRINT"WBRAVQI . HAS ACERTADO LA COMBINACION" *GOTO430 

420 M$®"" : G0T0255 

430 PRINT"HJLIEGAS DE NUEVO? <S-N3" 

440 GETVf J IFV$<>" S " ANDV$0 " N " THEN440 

450 IFV$®"S"THEN20 

460 PRINT" ¡T :P0KE36879 >27 iEND 

2000 PRINT"MB MASTER MIND "•RETURN 

3000 PRINT'TI " ¡PRINT'TTT : GOTO260 



i 



EXPOSICIONES: 



COMPUTERS, S.A. 

C/ Alfonso el Batallador, 16. trasera. PAMPLONA. 

PAMPLONA: C/ Alfonso el Batallador, 16 (trasera) - Tel. 27 41 54 (provisional) 
SAN SEBASTIAN: Plaza de Bilbao, 1 - Tel. 42 62 37. 





Commodore 64 




Vic«20 



(commodore 64 2.995 pesetas/mes^ 

( V1C - 20 1.310 pesetas/mes ^ 

— Unidad de discos - 1541 (170K) 75.000 ptas. 

— Impresora Seikosha GP - 100 VC 49.500 ptas. 

— Unidad de cassette 10.500 ptas. 

— Adaptador de VIC - 20 ó C-64 a cualquier casse¬ 
tte 2.950 ptas. 

— Joystick Crackshot 2.500 ptas. 

— Ampliación de memoria externa de 16 K para 

VIC-20 12.300 ptas. 

— Más de 2.000 juegos distintos, utilidades, libros 
nacionales y extranjeros 


SOLICITE INFORMACION 
BOLETIN DE PEDIDO 


Nombre y apellidos . 

Dirección y teléfono . 

Deseo recibir más información 

Deseo adquirir . 

Precio total . 

Giro Postal . 

Talón adjunto . 

Talón conformado adjunto . 

Tarjeta VISA o Master Card número 

Fecha caducidad . 

FIRMA . 


=1 
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Realizar un viaje en globo aerostá¬ 
tico, suspendidos en el aire, en silen¬ 
cio y llevados suavemente por las 
corrientes de aire, tiene que ser una de 


las experiencias más relajante- que 
imaginarse pueda. Con este programa 
se trata de realizar uno de dichos 
viajes, conduciendo un globo por ia 
pantalla de televisión. El viaje ceno¬ 
te en atravesar dos laberintos, une 
detrás de otro, desde la esquina infe¬ 
rior derecha hasta el ángulo supero r 
izquierdo de la pantalla. Si en algún 
momento durante el trayecto por el 


O 1 

1 REM 

o í 

2 REM 

o I 

3 REM 

o 

4 REM 

o 

5 REM 

o 

6 REM 

o 

7 REM 

o 1 

17 GÜ 

o I 

20 PÜ 

o 

30 SC 

0 

40 RE 

o 

50 SN 
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+ 4 

* EL GLOBO * 

4 4 

* COMMODORE MfiÜfiZINE * 

4 4 

;IJ£ COCO 

20 POKE 53280,6 • P0KE53231.. 6 : PRI NT " al" ; ■ HS=0 : EñL=3 7 7 =: 
30 SC™1000 

40 RESTORE : ONQQGOSUB10000,11000 

50 SN «11 > ~ 14 ■ SU < 2 > = 13 : SU! < 3 > = 15 : SN 4 = 13: pv= i : riv=2 * =2 
1062 PR I NT " ííeilPiiia ■" 

1 0 6 3 p r i n t 1 ■ »í 310001" 

1064 pr i nt " mmwrnü 1" 

.1070 G 0 T 0 7 O 0 0 

20O0 REM 44 TITULO 44 

2010 POKE53280,13•P0KE53281,13 

2020 PR I NT" 715" • 

2030 PRINT" F L i 


i 

i 

i—. 


n t: ri" 


040 

PRINT"M«WCüMDl IGF 

EL GLOBO POR EL 

045 

PRINT 


050 

PRINT" 

F 5 

052 

PRINT" 

1 

t 

055 

PRINT" 

1 

1 

060 

PRINT" 

CBM—4—SHIFT 

062 

PRINT" 

1 

063 

PRINT" 

1 

065 

PRINT" 

1 

■7f "7 C-i 

PRINT" 

F 7 

... c - 
U í -j 

PRINT 


080 

PRINT "TRMBIEN P! 

JEBES IR EN DIRGO 

i*‘Ii »“i CT 

kIm.J 

PRINT "POR ÉJEMPI 

Jj CON CBM V F5 R 


CON 


ii 


■i 


2090 PR I NT" ¡30 USRR UN JOVSTICK EN FORT 21" 

2100 PRINT"WGLOBO ENTRO POR 35000» PUNTOS" 

2110 PRTNT"ÍüIpELME JOVSTICK 3JS 0 TECLHDn 3TS" 

2120 GETKÍ : IFK*=""THEN2120 

2130 IFKTO "J " RNDKTO "T" THE!! 21 20 

2140 IFK$="J" THEN K=1 

2150 IFK$="T" THEN K>2 

2200 RETURN 

2500 : 

40Ü0 REM 44 FIN DE JUEGO 44 
4010 PR INT "113" • F’OKESP+21,0 
4015 POKE53280,2 : P0KE53281,2 
4020 PR I NT " ;i?Mi!!Mí!Mí!Mí!'J" TRB < 16 > " FIN " 

4025 PR I NT " .•iüM?]" T fl£ (6 > " HñS CONSEGUI DO " ; H I" PUNTOS " 
4030 PR I NT " MBfflfl" TRB < 10 > " 3PUL3ñ UNR TECLR1" 
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-rerir:: el globo, o la barquilla 
chocan con las paredes, el globo 
desaparece \ habrá que empezar de 
n_e Or'de el principio, con el se- 
g-ndo de les tres globos de que se 
dispone. 

El g ~ puede manejarse bien con 
- - » desde el teclado. Esta 

r: 3r. a-: . uno las instrucciones y 
' par.::- ene se pueden obtener, 
aparece presentada en la pantalla 
rada más comenzar el programa. 
Después ue atravesar a salvo los dos 
.urer.n: a. ^e -upone que tiene lugar 
un :errem to y entonces hay que 
m a ^ira .esar dichos laberintos 
re: con la dificultad que supone 

unas paredes que se mueven y que 
parece u^e van a desmoronarse en 
cualquier momento. 

v los laberintos llegan a hacerse 
demasiado familiares, después de ha¬ 
berlos atravesado muchas veces, es 
mu> sencillo cambiarlos sin más que 
modificar a voluntad las líneas de 
asieriscos que constituyen las subru- 
::nas ce las líneas 10000 y 11000, y 
cue - n las que pintan en pantalla los 
laberintos. 
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zmj2_ 


NUMERO 5 
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I 


4035 

FORI=01050:GETflf'NEKT 


4040 

GÉTflf:IFflí="" THEN 4040 


4050 

RIJH 


5 5* 33 

• 


6000 

REM m JOVSTICK ** 


6065 

REM *>: FORT 2 ** 


60 1 0 

ONK GOT06015■6040 


6015 

JV=PÉÉK<56320> 


6020 

IF ( J V H H I' 1 > = tí T H E N S V=S V+2 * < 

i- l f \ -í 

3 T ./ 1 

6025 

IF<JVflND2 >=0THENSV=SV-2*< 

.-•i i .--•-.crer 

6030 

IF < JVñNM > = 0 T H E N S Y-, - S X+2 * < 

C*V* \ 1 ‘i 
...»V * 

6035 

IF JVñNDS > =0THENSM=SX~2*< 

S! : vC350 > 

6037 

GOT06062 



I 


w 



NUMERO 5 


oooooooooooooo 








































pfOgf 






K1=F 

: ‘F 

EK< 

(197): 

K2 

“PEEK< 

¿Z‘ rrr 
h> J 

:> 

1E •: i : 

:i 

=6' 

>THENS 

i »-... 

T 

SV+2*< 

• "•i i--. 

t 

• 1 > 

IF < H 

: i 


>THENS 

V~ 

8 V 

< i 

T \ 

• •-> r~ irr 
. J 

IF < F 


•>.*. * i 

{•MI • 

• THENS 

»..« _ 

i "t " " 

S>í +-2:«!» : < 

r*-.- 

1> 

IF < H 

■* *•;. 

. u. 

::~1 ' 

J . 

•THENS 

y _i 

SX-2#< 

O 

-...* i - > •. 

;358 

ONFL 


GÜ‘ : 

=;!JB 90 

00 
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j 6040 
6042 
6044 

h i]1 '"I* h'i 

6048 
6862 

-• - 1 ' - 1 i 1 '01 : - 6 bP ■ ‘+ 25 6 $ \ bX>255pi. .!F3p4 1 6 , •' PFF|< < $P4-1 6 ’> Mh!'[»'?5 - *P n - *: s*" y*=¡p • pfj l-;' frc¡p 4 . •} , c¡y 

IFSM==5 THEH SR~0 : PÜKE2040.. SLKN) : H=N+1 •' IFM=5THENN=1 
SW=SW+1 : 3C--SC- 1 •'GOSUBI01230 
IF P E E K '■ 8 P+31 > < > íi T H E N 8 8 0 0 
GOT060 j. 0 

REM IiEFIMICTON DE SPRITES ** 

Cn~..cr 

! ■“ *•+ C'i 

FÜRT--0T0181 : REflDfi •' r 'QKE832+T, ñ : HE"KIT 
POKE2040 1 3 

P0KESP+-21 • 1 : POKESP+39.7 
Sy.~3 18 : 3 V~ 21.8 

PuKEbF, bX+25b*< SK>25 t 5 > P0H"ESP+t6.< •- PEEK<SF’4 16>ñND254np-•' c .>0255’> ' PfiKFFp+l , qy 
PP=PEEK < SP+31> . . ~ 

REM m INICIñLIZflCIÜN SID M 
80=54272 

FÜRT--0T028 : POKESCh T, 0 : NEXT 

P0KES0+5.- 9 : P0KE30+6.248 ; POKESÜ+24.• 15 : POKERO . 20m 
GOTÜ6000 


6873 

6074 

6075 

6080 

¿rqcio 

7000 
7010 
7820 

"7 M 

i * j mm n V 

7040 
7045 
7058 

7060 

7499 

7508 

7510 

7520 

7530 

7599 

7600 
7610 
8000 
8002 
8005 
8010 
8015 
8020 
8025 

Om'"7 

C-„ 1 

8G30 

8050 

8999 

9000 
9010 
9100 

9499 

9500 
9510 
9512 


REM ** COLISION ** 

IFSXC68 HHD SVC70 THEN 9500 
POKhSO+4, 33 

FORT= 10TO35 : PUKESO+1, T : POKE532S0, T : NEXTT : P0KE5:92F¡0 . f. 
P0KES0+4.. 32 

SIK^S 10 : S't-220 •' BhL=EhL- 1 : HI =HI + <250-SV> •' SC= 1000 : 0081 Ip JñpvCi 
IF BALO THEN 4000 ' ... 

POKESP, SX+256* <SX>255 > : POKESP+16.. <PEFK < Sp+1 f, RNT!2^4 np -< pvy 
F'F’=PEEK< SF'+31 > .“ 

GOT OSOSO 


255):POKESP+1,SV 


REM r* TERREMOTO ** 

POKE53270,<PEEK<53270)RND243> +X : X=X+DX : IFX-7 OR X=0 THFND V =-Tiv 
RETURN . " ' . 

REM W*. BOHUS V HUEVO JUEGO ** 

IFSX>4O fiNI)SV>56 THEH6080 

SX=310 : SV=220 : HI =H I+< 1000-80 :■ : 80= 1000 


95 

13 

IF 

BRLC1THEN4000 

95 

15 

PF- 

: PEEK<SP+31 > 


95 

28 

HI = 

H I 4 1 000 : QQrr: 

QQ+1 

95 

30 

IFH 

II >5000 RND 

IH=0 

95 

40 

I FQ 

Q>2 THENQQ= 

1 : EL 

95 

50 

GOS 

UBI022O 


95 

nrrr 
. j ....i 

PÜK 

ES0+4.. 17 : F0RHH= 

95 

60 

POR 

T“20TO40STE 

P2 : P 

95 

70 

POR 

T--40TO20STEP-2 : ! 

95 

80 

NÉ.X 

THH:POKESO+4, 16 


30 
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9614 POKESPSN+2564 < SX>255 > : PÜKESP+16, < PEEK < SP+ i 6 > RND254 > GR-< SN>255 > : PGKESP+1, SV 

9615 PP=PEEK<SP+31> 

9620 GOTO 40 

QQQCl ; 


1 0000 
1 0002 
1 0004 
10006 
I 0008 
1 00 1 0 
1 0G 1 2 
1 00 14 
1 001 6 
J. 00 1 0 
1 0020 
10022 
18025 
18027 
1 0030 
1 8035 
1 0040 
10045 
1 0050 


RRI NT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRI NT 
PR í NT 
PRINT 
PR I NT 
PRINT 
r i h i 

PR T NT 
PR I NT 


1 ‘ PIpí*: 4 4:4: 4 4 4: * * 4 4 -4 4 4 4: 44444 4 4? 4: 4 4: 4 4 4 4 4:4? 4:4:4: * 4:4i 4:4:4: ' 1 

ii 


*44 


44: 

44: 

4=44:4:4:4: 44 

444444 

4:444:44 

44444 

4:4 

444 

44 4: 

4444 

4 4 :44:* 

444444 

4444444: 

44 

44 

44 

4 4 4 4: 


4 4 4 4 4:4444:4 4 4 
44444:444 
444 

4 


4: 

444 


444 'f 
4444 
4444 


44 

.4 4 4 4 4 
44444444 


444444 

4444444 


444444444 444:4444444444 
444444 444444444444444 


4444444444:44 44:4 44 444 
44444 : 4 4 4 4:4:44:444.44:44 
444:4444444444 4444 

444444 4 


44 

4444 

4444 


44 


444 


44 


44 


44 


44 


4 * :*: 4 4 4444 44:44 4 4:4: 


¥ 4 

4:44444444444 


4 4 
44 
44 
* ; 4 

4 4 4 4: 
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¡INCREIBLES TARJETAS 
PARA COMMODORE64 Y VIC-20 

DE 80 COLUMNAS 

LA TARJETA DE 64K ES LA PERFECTA COMBINACION PARA LA TARJETA DE 40/80 COLUMNAS: 

_Puede uscoger entre 22/40/tíÜ columnas y obtiene 31743 bytes libres!!! 



E! sofware del EPROM de la tarjeta !e permite utilizar todos los comandos de ficheros (OPEN, CLOSE, PRINT, INPUT, GET, 
SAVE and LOAD) con los 31232 Bytes de Memoria «oculta», lo que produce la sensación de que hay 8 cassettes super rápidos 
conectados a su Vic-20 Imagínese... menos de 1 segundo para guardar 28 K!!! 


Tarjeta VIC-20 40/80 columnas 


Tarjeta COMMODORE 64 
80 columnas 


Tarjeta VIC-20 
Ampliación de memoria 
64 K-RAM 

Slots de expansión 
para VIC-20 y 64 
de 2 y 5 para conexión 
de tarjetas 



DISTRIBUIDORES PARA TODA ESPAÑA 


PEDIDOS 


fERRE-fllORET /.R 


Tel. 93/ 250 84 40/ Contestador Aut. 
Escribir indicando la sección 
C/. Buenos Aires n.° 30 2 o 3 a 
BARCELONA-36 
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PRTMT" 


REM AA nCTURLIZñCIÜN HE PMNTus **: 

PRINT M SI T í EMPÜ GL OBOS PUNTOS" 

PRI NT " £!" TRB 23 > FihI " II " , TRT 23 H ]'" p " 

PÜKE8P+21•1 

pD T i'T " “3" Tú r ' ”■* '•(•“•nuil! u 

T K 4.11 I M I Í ij_- e Z- L- KS 

P rr-ri jp;.| 

I * W ' !■ ¡ { " 7jSjfWl-iV 4" :«*: A A A A A A A A -A; A" A A A A -4: A 4 4: 4 A; A 4 *A A 4: 4: A -A; 4»; A A A : * 4 A * A ' 1 


10020 PRINT“AA 
10Fi?0 PRINT" AA 
10080 PRINT"AAAA 
10090 PR I NT M AAAAA.A 

1 0QQ»~ 

10199 

1 0200 

10210 

10228 
^ “ i”; 

10230 
1 0290 
1 0999 
1 1 000 

1.082 

11004 
11006 

I 1003 
1 1 0 1 0 
11012 
11014 
11016 
11018 
1 1020 
1 1 022 
11025 
11027 

II 030 
11035 
11040 

•\ 4 A |“- 
i I- IH-. I 

11050 
1 1 060 

I 1070 

II 080 
11890 

11095 

III 

1 QQqq 


«i - 


4 ; A. A A A A A A A: A A A 

A: A; A A: '4 $ A: A A- A £ A ;A i 


A " ; 
A"; 

k A A A: A A A A A A A a'' . 


PR I NT " A A 

PR I NT "A 
PRINT"A 

PRINT"AAAAAAAAA 
P R1N T "A* 4- A A A A A A A A A A A A : A 
P RIN1 " A A Ai A A A A : A A A A A: A .A A A: 

PRINT"AAAAAAA AAAAAAA 


A A 


PRINT"AAAAAA 
PRINI"AAAAA 

PRTNT"AAAA 
PRINT"AAA 
PRINT"AAA 
PRINT"AA 
PRINT"AA 
PRINT" Aí A.A 
PRINT"AA 
PRINT"AAA 
PRINT"A* 

PRINT"A 
PRINT "AAA: 

PR TNT"AAA*A 
PRINT"AAAAAA 
PRINT" 

GOSUE10200 : RETURN 


A A A A: A; 

AAA A A: 

AAA A 

A AAA A 
AAA A A A A: 
AAAAAAAAA 
AAAAAAAAAA 


A A AAA AAA" , 
AAAAAA"; 

AAA A A " 
AAAAAA" 
AAA A A " ,¡ 
A A A A A " 

AAAA": 


A A A A A A A A A A A A A A A 

AAAAAAAA A 

A A A A A 

AAAA AA 

AAAAA AA AAAAAA 
A A A A A A A A A A A A A A A 

A A A A A A A A A A A A A A A 

A A 4 ; A A A A A A A A A A A .A A A A 

A A A A 4 A A A A A A A A A A A A A A A A A A A 


A A A A A A A A A A 
AAAAAA 


AAAAAAAA 
A A A A A A A A 


A A: A 

AAAAAAAA 


AAAAAA": 
AAAA"; 
AAAAAAA".: 
AAAA": 
AAAAAA " 
AA"; 
AAAAAA"; 
AAAAAAA"; 
AAAAAA"; 
AAAA"; 
A"; 
A" : 
A"; 


ii 


54, 

0 i 

Ti i 

rrrr 
d J .* 

-1 

.1 

.;; n » 4 J» 

—i 

.* t j 

•~.rrcr 
c. J .< 

1 

Q 

* j 
¿ j 

1 

cr 

, 

•-.crer 

cLJJ 

.* tTL. 

24 

.. 1 

er 

i 

•**% 

ll. 

crcr 

J .J 

•" '“i 

tZ-C- 

4 i' .< 


crcr 

J J .• 

1 

Q? 

C7 .-1 

-J 4 .• 

0, 

0, 

56 

, 8 

t 

0, 

56 .* 

0,0, 

1 

6 

, 0 


.. 

0,0 

.. 0 

.i J, 

6 .i 

0, 

0 

• J 
,i .2» 

2,0 

,i 8 .i 6 

4 

t i 

8 



1 '"j o 

.» J. *£•_*, 

Q, 

6 3 

.• 8 


0, 

31 

1 ‘“O 

J. C...» 

0 

,i 

.15 


19 


20007 B H T ñ 0,0,0@ 

20020 REM AA GL0B02 AA 
20622 

20023 

20024 
20-025 
28026 
28027 DHTh7,123,G,0 
20100 REM AA GLOBO 3 AA 

201G2 BRTRG,254,0,3,255,123,7,255,192,15,255,224 
2G103 DfiTfi 15,255,224 ,.15.. 255 4 224, 7, 255.. 192.. 3.. 255.. 123 

28104 BRTR0, 254.. 0.. ©, 56 .■ 8,0.. 56, 00, 16.. 8 

28105 DRTRG , 68.8 , ©, 8,8 * 8,4,8, 8,2,8 

20106 DRTR0, 1.. 96, 8, 8 , 248,8 3 .* 248.. 8 , 3, 248 
28107 BñTM 0,1,224.8 


28000 

REM AA GLOBO 

.1 A A 


i w 

1 0 

20802 

BRTRG .• 254.8.. 

6.* 255.’ 125, i , 255 

1 Q ~» 1 cr crrr a 

.' X , X , d-J -J , el c.. 4 

0 

20082 

BñTR15,255.. 2 

¿.•t i , ¿j-j , 2d4, r 

"«crrr i ".rrrr i 

0 

28004 

BRTR0,254,0, 

8 , 56 .. 8056 , 8 , Q 

.« 16 , 8 

1 0 

20805 

BRTRG,16.0.0 

.< 1 1* .* 8 , 8 , í 6 , 8 .• 8 , 

16 , 8 

1 o 

20806 

BRT RG.. 124,8, 

d .• 124, 8,0, 124,8 

.• 8,8 , 0 

1 0 
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La revista imprescindible para todo el usuario de 

Ordenadores COMMODORE 



Aproveche ahora esta irrepetible oportunidad para 
suscribirse a COMMODORE MAGAZINE. Envíe 
HOY MISMO la tarjeta apunta, que no necesita sobre 
ni franqueo. Deposítela en el buzón más cercano. 
Inmediatamente recibirá, su primer ejemplar 
de COMMODORE MAGAZINE y así durante un año 
(12 ejemplares). 

commodore 

_ J¿cLgjCLz¿rijQ- 


Bravo Murillo, 377. 
Tel. 733 96 62 
Madrid - 20 
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* 0 : REM PRESENTAR I f(N 

28 PRINT "ITT' • PÜKE53280,6: PÜKE532A .1 . f. 

30 PR i NT "RESOLUCION HE SISTEMRS DE ECUñCIONES 
' ¿L 1N E H L El S P O R E L M El T O D O J'i E n p 11 s s'' 

Í !K EL IMI MAC i ones suces i vrs > 

PlPMPESCR IT0 PARA C:üMM0IiüRE~ 64 " 
n R VI f: E N T E O E R M A N H Ü R T ñ L P U E N T ES" 
UU# ESCUELAS TECNICAS SUPERIORES" 

N !. VERSI i!HJj jjE. GRAÑAPA " 

SO GET D$ : IF D:í : ~" " TREN SO 

SO A$= " " 

100 REM ENTRADA DE DATOS 


35 PRINT 
40 PRINT " 
45 PRINT " 
50 PRINT " 
55 PRINT " 
60 PRINT " 


De todos los programas que pue¬ 
den escribirse para un ordenador, 
nadie discutirá la importancia de 
aquellos orientados a la resolución de 
problemas matemáticos. Este es el 
caso de SISTEMAS DE ECUACIO¬ 
NES, programa para el CBM 64, que 
recibimos de Vicente Hortal Puentes, 
un lector de nuestra revista en Grana¬ 
da. 

El programa resuelve. sistemas de 
ecuaciones lineales, de no importa 
que número de incógnitas, siempre 
claro está que el sistema admita 
solución. 

Para utilizar el programa hay que 
responder en primer lugar a la pre¬ 
gunta “Número de incógnitas?”, y si 
por ejemplo queremos resolver el 
sistema presentado más abajo (que es 
un sistema lineal de dos ecuaciones 
con dos incógnitas) responderemos 
que 2. 

X, — 2X 2 = —3 
X, — X 2 = 2 

Después hay que introducir los 
coeficientes de las incógnitas y el 
término independiente. Se hace por 
filas, dando lugar a la matriz siguien¬ 
te tal y como aparece en pantalla. 

1 —2 / —3 

1 — 1 / 2 

El programa, después de preguntar 
si hay algún error que corregir, y al 
recibir N como respuesta resuelve el 
sistema, dando como resultado: 

X, = 7 
X 2 = 5 

Sistemas de mayor número de 
ecuaciones e incógnitas se resuelven 
con igual sencillez y facilidad. 

Commodore 64 


I 


_ii 


"•PRINT "IT 



C 

O 

O 

c 

c 

o 

o 

o 

o 
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11 lili 
120 
130 
140 
150 
160 
170 
180 
j 20 
200 

¿10 L=0 : IF NOS THEN 250 
220 L=L+1 : PRIHT : ÍF L>H THEN 250 

-"'0 * UR L-1 ]m N+l : PRIN! "FK'T " . "f;" ;■ ~" h» i ¡ -*•, : upvt r 
c...:>o üt r DT -Ih .DO"" THEN 235 
248 GOTO 220 


PRIHT m ct ■■ 

IHF'UT "ntUMERO DE INCOGNITA 

I'ií!'! h■: N, N+l > 

, R»: H+1 > .. N > : SH= I NT < 40/ ( N+2 

l-UR L=1 TÜ H 

POR C=1 Tu N 

•f 1 : [ ¡\J } C$ 

IF C=N+1 THE 

n p r i m t ■ ■ rrr e r m i m o i h d f p p n t t ] 

F'R I NT " nñ < " L 

","C">";:1NPUT ñ<L,C> 

IF NOS THEN 

NEXT C 

GÜSUB 310 

k;pvr « 

• - *«.. ; i i i^., 


REM 

UURRECCIÜN 


250 

•“i rr n:: 


260 

270 

280 

290 


?? 1 ¡¡I- nRLGUN ERR0R " ; Dí : IF B$="N" THEN PRIHT fl* CT : GOTO 410 
i i .i..' t- _••• o i hen ...iy 


PRIHT flf Cí : INPUT "PLINEH , COLUMNfi ";L,C 
PRIN1 H$ Cf PRIHT "!TK "L" "C" > "; : TNPIIT ñti . f :> 
IF NOS THEN GÜSUB 310 


GOTO 25fi 


i 




i 


¿QUIERES SACAR EL MAXIMO PROVECHO 

A TU COMMODORE 64? 



tn 

‘UJ 

D 

a 

oc 

< 


Los 25 primeros tic¬ 
kets recibidos ten¬ 
drán el obsequio de 
un programa para su 

COMMODORE 64 


TRONIK, tu amigo informático te ofrece: 

- Curso a distancia del COMMODORE. 

-Iniciación a la informática y BASIC del 
COMMODORE en nuestras aulas. 

-Accesorios para el COMMODORE y 
VIC 20. 

- Libros y revistas. 

- Alquiler de cartuchos de juegos. 


, 

Para mayor información, dirígete a TRONIK 
I Bigay. 11-13 - Telf. 212 85 96 - Barcelona-22 

Nombre. i 

I i 

J Dirección. | 

J Población .Telf. ¡ 

J Provincia. j 



oooooooooooooooooooooo 
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380 
318 
328 
336 
348 
480 
410 
428 
430 
440 
450 
460 
478 
430 


500 
518 
528 
538 
548 
558 
568 
578 
538 
590 
688 
618 
650 
668 
678 
680 
780 
710 
728 
730 
748 
758 
760 
778 
780 
300 
318 

>_> c- U 

838 

340 

350 


REM IMPRESION DE CÜEFICIENTES - 

F'RINT LEFTT M ,2*L~ 1 > ; 

IF CON TFIEN PRI NT TñB < SH*C-LEN < STRT ( H < L, C > > > > A ( L, C> : GOTO 348 
PRINT THE<SHfcC-1 > "/ M TñB<SH*<C+1 >-LEN<STR$<A<L, C> > > > H- L . 

RE Í ! IRN 

REM D1AGONALIZñCIOH 

POR p=i TO N-l : LR“0 
IF H(P,P)<>0 TRIEN 580 

FOR L=P+1 TO N 
IF fl(L;P)O0 TRIEN LR=L 
NEXT L 

IF LR=0 TRIEN PRINT "TTTBISTEMR INDETERMINADO" : END 
FOR C=P TO N+l 

R ( C > =H < P, C > • H<P, c > =H < LR, C > : H < LR.. C > =R ( C> 

NEXT C 
D=H ( F* > P > 

FOR C=P TO N+l 
h(P4::)=h(p,o/d 
NEXT C 

FOR L=P+1 TO N 
IF A<L,P>=0 THEN 608 

d=rí:l,p> 

FOR C=P TO N+l 
H <L,C)=ft<L.C >-H<P,C> *D 
NEXT C . 

NEXT L 
NEXT P 

REM DISCUSION 

IF H(N,N)<>0 THEN*718 

IF ñ(M,N+l)O0 THEN PRINT "iTHSISTEMR INCOMPATIBLE" END 
PR I NT " rmS I STEMR INDETERMI NADO " : END 

REM CALCULO DE INCOGNITAS - 

X < N > =A < N .• N+1 > / A ( N.. N > 

FOR L=H~1 TO 1 STEP -1 
F—H y. L .• N+1 
FOR C=L+1 TO N 
S~S~H (L .• u > +X y. C) 

NEXT C 

X < L > =8-4; < - < ABS < S > > 1E-6 > > 

NEXT L 

REM IMPRESION DEL RESULTADO 

PRINT LEFT$<ñ$,2*N> 

FOR C=1 TO N 
PRINT" X"C"="X(C> 

NEXT C 
END 
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Desde Granada, Pedro Palma Jimé¬ 
nez nos remite este interesante pro¬ 
grama, que lleva por nombre “Calen¬ 
dario”. Su función, parece absurdo 
aclararlo, es la de servir como calen¬ 
dario, ya que presenta cualquier mes 


Commodore 64 

de cualquier año, haciendo corres¬ 
ponder los días del mes con el día de 
la semana correspondiente, tal y co¬ 
mo podría encontrarse en un calenda¬ 
rio. 

Para utilizar el programa hay que 


copiarlo cuidadosamente en la me¬ 
moria, después de lo cual, y tras 
haber escrito RUN, veremos aparecer 
dos preguntas en la pantalla, corres¬ 
pondientes al mes (entre 1 y 12) y al 
año que queremos ver. Respondidas 
estas preguntas, el mes pedido apare¬ 
cerá en la pantalla. 
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• 'í? !r ! " R 1 ^UKE36879 *■ 48 : PR I NT • PEINT"IT • B I MMÍ < 12 > : Mí ( 1 > = "ENERO " ■* Mí< 2 = " FEBRERO" 

j i „[1?;; • “"MRRZU" •' m *: 4>="HBRIL" : Mí<5>="MfiVO" ; Mí<6)-" JIJN10" • Mí<7> =".JIJL10" : Mí(8> = "R 

U I...I< r u 

42 Mí<9> = "SEPTIEMBRE" : Mí(18> = "OCTUBRE"•Mí<11) ="NOVIEMBRE":Mí < 12) ="BIrIEMBRE" 

68 PRINT"awWW CALENDARIO MENSUAL" : PRINT" =============s==:=~» P RINT“MflW DATOS" 

b 2 P RIN f'Pl y I M E S=8 T H E E N D 1 ' : IN P U T " $ M E S < 1 -12 V : M •' IF M=A T H E N E N B 

66 IFM<80RM>12THEN68 
68 PRINT" _J' :INPUT" 


HNO";V 


69 PRINT"jü»!lPl PARA BORRAR EL OR- 
= 1Tu3808 

72 NEXT : PRINT# MES DE "Mí <M) " ■ PRINT" 


LENBARIO PULSAR 


CUALQIJIER TECLA " : FORQ 
* ANO"V"#" 
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...y estamos 
en la calle 
a disposición 
de nuestros lectores 


ANTES ERAMOS 

¡CIRC UITO 

mPR€SO 


AHORA SOMOS 


CIRCUITOS 

COMPUTADORAS 























Piano es un programa destinado al 
VIC 20 que nos ha llegado desde 
Barcelona de manos de Xavier Esco¬ 
bar Bonet, lector de nuestra revista. 

El programa consigue que las dos 
líneas superiores del teclado se com-’ 
porten como teclas de un piano, 


aprovechando las capacidades musi¬ 
cales del VIC 20. Para ello basta 
escribir RUN después de haber copia¬ 
do cuidadosamente el programa. 

Más interesante quizás es la posibi¬ 
lidad de almacenar canciones tanto 
en memoria como en un cassette. 

Para almacenar en memoria, hay 
que pulsar la tecla Fl, nada más 
comenzar el programa, pasando des¬ 
pués a tocar la canción. Cuando se ha 
terminado de tocar, hay que pulsar 
F5. Ahora la canción está grabada en 
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29.. 191,199.203 
27, 0.. 0.. 0.. 0 
07 .■ 0 , 0 


VIC-20 


memoria y para escucharla de nuevo 
basta con pulsar F3, que ella sola irá 
saliendo, nota a nota por el altavoz. 

Para almacenar la canción en cas- 
sene el procedimiento es el siguiente: 
Después de grabarla en memoria 
como se ha explicado se debe pulsar 
la tecla F~. hecho lo cual el VIC 20 
presuntará “GRABAR O CAR¬ 
GAR?”. 

Escribiendo G como respuesta, el 
programa pasa a grabar la canción en 
la cinta. Si la respuesta es C entonces 
el programa carga desde la cinta una 
canción en el ordenador, canción que 
puede escucharse pulsando como an¬ 
tes la tecla F3. 


, 4 ■ 4,4,3,3.. 3,2.. 2,2,2,1,1,1.11.1, y, y, 0 ,0, y , y, 0,0,0,0,0, 0, 


y, y, 

\A > -1 

E» .* rj 

100 

DIN N<53>,H 

110 

FORT-11033 : 

120 

FÜRJ=1T039 : 

130 

F0RJ=1T04 

140 

P0KE36873+J 

130 

hekt 

160 
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T 4 M • * 
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17y 

IF TC48THEN 

200 

GETR$ : Ih R$< 

203 

IFQ=1THENÜ= 
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GOTOl78 
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GETE$ • IFE$~ : "" THEN428 
V=M 

IPEÍ-"G"THEN590 
I FEÍ="C"THEN430 
GOTO420 

OREN i,1,0,"PIñNÜ" 

INPUT#1,B 
FORL- -1 TOE 
INPIJTtt 1, Q$ L > 

IMPüT#l,Na_> 

NE2T 

FORQQ= 1TO20© ; P0KE3t>876 • 2Rfi MR-'T 
GETEf : ’ FEf=i" "THEN487 
GLOSE 1 

PEIHT ,! n" :GOTO308 
OFEH1,1•2•"PIRNO" 

PRIHTttl .• E 
FORL=1 TOE 
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PRIHTtl,W(L> 
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Luis Meléndez Alanzo nos remite, 
desde Córdoba, este programa que 
nos va a permitir comprobar nuestros 
conocimientos sobre los elementos de 
la tabla periódica. El programa hace 
el examen realizando diez preguntas. 
Por cada respuesta correcta a la 


primera se obtiene un punto, si no se 
responde a la primera, hay una se¬ 
gunda oportunidad para responder 
correctamente, pero en esta ocasión 
no se obtiene ningún punto. Si en esta 
segunda oportunidad tampoco se 
responde correctamente, entonces es 


el programa el que se encarga de dar 
la respuesta correcta y se pasa a la 
siguiente pregunta. 

Existen dos opciones para llevar a 
cabo el examen, que pueden seleccio¬ 
narle al comenzar el programa. En 
una de ellas, la pregunta ps el símbolo 
del elemento cuyo nombre aparece en 
la pantalla, mediante que en la otra 
opción. lo que aparece en la pantalla 
es el símbolo \ hay que responder con 
el nombre del elemento. 

Al acabar el examen aparecen en 
pantalla las diez preguntas realizadas 
con su respuesta correspondiente y se 
indica el tanto por ciento de aciertos 
obtenidos, o lo que es lo mismo, la 
nota del examen. 


v-y 


O 
O 

o 
o 
o 
o 
o 
o 
o 
o 
o 
a 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

O I 


5 IHMRÍ •::??> : r» i MB$ 75 > 

7 PRINT "IT 

10 PÜKE53288,7•'P0KE53281,2 

15 PRINT"m 
30 PRINTTRBO) 

35 PRINTTñB<3> 

40 PRINTTñB< 3 > 

50 PRINTTRB<3 > 

60 PRINTTRB(5 > 


T A B L R P E R I 0 D I C H 
"MfcMMGíUE QUIERES QUE TE PREGUNTE 


il 


II 


“II 


"MI.-EL SIMBOLO BRBO EL ELEMENTO 
"M2.-EL ELEMENTO URDO EL SIMBOLO 

32» SEGUN DESEES" 
"2"TREN 7Ü 


"MCPULSñ 3 11 
70 GET H$:IF RÍ-O m 1" AND R$< 

80 PRINT"21" 

100 FOR 1=1 TO 10 

110 RI > = I NT •: 75*RNB ( 1 > > +1 

120 IF 1=1 THEN 160 

130 FOR J=1 TO 1-1 

140 IF R(I)=R(J) THEN 110 

150 NEXT J 

160 NEXT I 

170 FOR 1=1 TO 75 

180 READ fl$<I>,B$<I> 

190 NEXT I 

200 FOR 1=1 TO 10 

210 IF fi$="l" THEN 230 

220 PR$=B$<R <I> > : SO$=fí$<R <I>>•GOTO 240 

230 PR$=fi$(R < I>):SO$=B$<R <I>) 

240 PRINT PRí, 

250 INPÜT B$•IF B$=SO$ THEN 300 

260 PRINr'MSNÓ ES CORRECTO".INTENTALO HE NUEVO' 

270 INPUT IF Zí=SO$ THEN 310 

280 PRINT "MLR RESPUESTA CORRECTA ES : ¡S" ;S0$; 

290 GOTO 310 
308 CT=CT +1 

310 PRINT"- 

315 NEXT I 

320 FOR 1 = 1 TO 500: NEXT I ; PRINT"73" 
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330 

340 

350 

355 

370 

380 

390 

400 

410 

430 

440 

450 

460 

470 

480 

490 


FQR 1=1 TÜ 10 

PRINT ft$(ñ(I)).Eí(ñ(I)) 

HEXI I 

PRINTTAB<4 >:" WüHH RCERTRBÜ EL":CT*10," POR CIENTn" 
PRINTTfiBC4 >;"- 


I! 


-i II 


510 

520 

538 

540 


PRINTTAB(9>; "MSIDESER OTRO EXAMEN 
GET H$ 

IF fl$= M S" THEN RUN 
IF A$="N" THEN END 
GOTO 380 

BRT RHIUROGENO,H,LITIO,LI,30DIÜ,NR,POTASIO,K,RUBIBIO,RB,OESIO,CS • 

DATR FRANCIO,FR,BERILIO,BE,MAGNESIO,MG,CALOIO,Cfi,ESTRONCIO,SR- BARIü,BA 
DATA RADIO,RA,ESCANDIO,SC,ITRIO,V,LANTAMO,LA,RCTINIO,AC,TITANIÜ,TI 
DAT A ZIRCONIO,ZR,HAFNIO,HF,VAHADIO,V,NIOBIO,NB,TANTALO,TA,CROMO,CR 
DAT AMOLIBDENO,MO,WOLFRAMIO,W,MANGANESO,MN,TECNECIO,TC,RENIO,RE 
DATA HI ERRO, FE, COBALTO, CO, NIQUEL, N1, RUTEN IO, RU, RODIO, RH, F’ALAD IO, PD 
DATA 03MIO,OS,IRIDIO,IR,PLATINO,PT,COBRE,CU,PLATA,AG,ORO,RU,CINC,ZN 
DAT A CADMIO,CD,MERCURIO,HG,BORO,B,ALUMINIO,AL,GALIO,GA,INBIO,IN,TALIO,TL 
DAT A CARBONO,C,SILICIO,SI,GERMANIO,GE,ESTAÑO,SN,PLOMO,PB,NITROGENO,N 
DATA FOSFORO,P,ARSENICO,AS,ANTIMONIO,SE,BISMUTO,El,OXIGENO,O,AZUFRE,S 
DATA SELENIÜ,SE,TELURO,TE,POLONIA,PO,FLUOR,F,CLORO,CL,BROMO,BR,VODO,I 
DAT A AST ATO,AT,HELIO,HE,NEON,NE,ARGON,A,KRIPTON,KR,XENON,XE,RADON,RN 
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JUEGOS Y PROGRAMAS 

SELECCIONADOS 

PARA COMMODORE-64 

Y VIC : 20 

Pídanos catálogo 

Gratuito 





COMO GANAR EN CUALQUIER 
VIDEO JUEGO CON... 

DISPARO 
AUTOMATICO 


ICOSA 


Escríbanos o llámenos por teléfono 
ICOSA 

EDIFICIO TORRE 

ORENSE TELF. (988)* 23 40 50- TELE X ICPO E 88168 
(CÓDIGO POSTAL 32003) 

DESCUENTOS A DISTRIBUIDORES 
DE CQMMODORE 



Compatible con: 

COMMODORE-64 
ViC -20 
ATARI 
NEC 

SINCLAIR (Con ínter face ) 

LE REGALAMOS 
PARA EL C 64 
UN JUEGO CON 
CADA JOYSTÍCK 


.ti iiwirrtwrr J ‘f i ‘ aJ ""'ir > 

‘Empuñadura anatómica 

•Botón de autodisparo _ 

•Disparo con dedos índice o pulgar p 8ECIO 4.90CF<i 

•Ventosas de sujección 


(Incluidos gastos de envío) 
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Este programa quizá no sea el más 
adecuado para los amantes de los 
animales, pues consiste en lanzar 
piedras contra unos graciosos topos, 
que intentan, abriendo el terreno, 
sacar sus cabecillas al aire. Pero como 

0 REM###T0POS*$* 

3 800 


no deja de ser un juego, y en realidad 
no hay animosidad contra los peque¬ 
ños topos, creemos que todos disfru¬ 
tarán jugángolo. 

El jugador dispone de 15 piedras 
para lanzar. Hay tres montículos bajo 


5 C 

•030720: X= 

:0 : 

54=36877: 

: S1 

=36874:] 

jB= 

0 

■ S3=I 

•»* ú 7 L 

w i r. 11 r*, 

8 F 

L'KEj6or y.. 1 

cr 








26 

P0KE3S879. 

18 

¡7 : F'RINT"!’: 

1" 






28 

PRINT'TMWI 
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PRINT"MS 
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F'RIHT "3" 
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F'RIMT"M 

TIENES 15 

PIEDRAS" 





130 

F'R I HT " M 

F'HRh ñF'LRSTñR 

T OPÜS" 





140 

F'RIHT "MSP 

UL 

Sfi .6 PfíRH 
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UÜRR " 
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GETGí:IFG 

$<: 

>"G"THEN1 

50 
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PQKE36879 

~il 
.• lll • 

55 : PRIHT" 

IT 
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172 TI$="000000" 


■!T9-finai « 2 TB.S 


[tes ÍSjJtéS 

los cuales trabajan los topos abriendo 
una vía al exterior. Para dar a los 
topos hay. primero, que destruir las 
defensas que los protegen, lo que se 
consigue lanzando las piedras a los 
costados de los montículos. Como los 
animalitos están constantemente su¬ 
biendo y bajando la cabeza, aunque 
la piedra llegue al lugar adecuado, 
puede fallar si el topo baja la cabeza, 
es preciso darles justo cuando están 
arriba. Cuando se acierta, aparece un 
destello rojo, se escucha un “splatch” 
y el jugador, se apunta 10 puntos. Si 
falla, no se apunta ningún punto, 
pero sigue habiendo ruidos cuando la 
piedra llega al suelo. 

Tanto si se acaban las bombas, 
como si transcurre el tiempo disponi¬ 
ble, aparecen los mensajes adecuados 
y el programa empieza de nuevo. 

El programa es sencillo de copiar, 
pero hay que poner atención con los 
numerosos caracteres gráficos y espa¬ 
cios en blanco entre ellos, que pueden 
dar lugar a errores. 
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180 

185 


182 
193 


195 

200 

210 

390 


734 

740 


B=7723 : F=0 

PRI NT" SI ***F7-D I SPñRfi#*#" 

IF PEEK<197> =63 THEN F=1 ÜÜTÜ500 

IF TI$>="000200"THEN PRINT M SD<D®ra ñCfiBÜ EL TIEMPO!" 

IFTI$>="000200"THEN PÜKE 36878,15*FÜRX=1 10339 ■ PÜKES1,215-NEXT» : PÜKES1,O 
IF TI$>= "000200"THENP0KE36878,0 •' FORX= 1TÜ5000 : NEXT» : Rl IN 
PÜKEB,32 


B- 


7 7 I l 

i r ¿O 


405 

410 

420 

425 

427 

430 

440 

445 

447 

450 


465 

467 

478 

500 

504 

505 
510 
515 
520 
530 

cr 

'-'•JC 

cr O O 
• J • * 

540 
600 
601 
610 
620 

623 

624 

625 
630 
640 

700 

701 
710 
712 

5 



715 

720 

723 

725 

727 

730 

732 


IF B+1>7745 THEN PÜKEB,32 
B=B+1:PÜKEB,31 : PÜKEB+CC, 4 
REM***MÜV 1M1ENTO TOPOS*** 

MH=INT < RHB ( 1 > *3+1 > 

POKEX ,121 

ON MH GOTO420,440,460 
PÜKES169,65 = PÜKES169+CC,0:X=3169 
FORT =1T035 : NEXTT 
IFF=1 THEN GOTO500 
GOTO 190 

PÜKES175,65:PÜKES175+CC,0:X=8175 
FORT=1T035 : NEXTT 
IFF=1 THEN GOT0500 
GOT O 190 

PÜKES181,65:PÜKES181+CC,0 : X=8181 
F0RT=1T035:NEXTT 
IFF=1 THEN GO TO 500 
GOTO190 

REM***CRIDR BE BOMBAS*** 

IFDB=15THENPRINT" NO MRS BOMBAS! !":FORT =1TO500O : NEXT : RUN 

IF PEEK<B+22> =65 THEHGOT0600 
IF PEEK (B+22 >032 GOTO700 
IFB+22>8164THEN GOTO700 
PÜKEB,32 

B=B+22 ■ F'üKEB, al : F'OKEB+UG, 4 
IF S=200 THEN 3=234 •' GOT O i 90 
P0KES3,S-1:FÜRT=1T025:NEXTT:S=S-1 
GOTO390 

REM***ñF'LRSTfi TOPOS*** 

P0KES3,0 

PÜKEB,32:POKEX,42:POKEX+CC, 2 

FORS=1TO100:P0KES4,155:NEKTS:P0KES4,0 

POKEX,121:POKEX+CC, 0 

S=234 

SC=SC+10 

F'R I NT " SIS SCORE=".:SC 

BB=DB+1:GOTO 175 
REM***EXF'LOS I ON*** 

P0KES3,0 

PÜKEB,32:R=PEEK(B+22> : U=PEEK(B+21>:V=FEEK(B+23> 

POKEB-2,46 : PÜKEB,46:POKEB+2,46:P0KEB-2+CC,5:PÜKEB+CC,5 : F'ÜKEB+2+CC,5 
POKEB+22,66:POKEB+21,77:P0KEB+23,78:P0KEE+22+CC,5:POKEB+21+CC,5 : P0KEB+23+CC, 

FORS= 1TO50 : POKES 1,175 = NEXTS : F'OKES 1,0 
S=284 

POKEB-2,32 = POKEB,32 = POKEB+2,32 
POKEB+22,32 : POKEB+21,32:POKEB+23,32 
POKEB+22,R:P0KEB+22+CC, 0 
POKEB+21,U = POKEB+21+CC,@ 

POKEB+23,V•P0KEB+23+CC,0 
BB=DB+1:GOTO175 
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Tranvía es un programa que perte¬ 
nece a la familia de programas de tipo 
laberinto, y su nombre es este porque, 
el laberinto del que hay que salir, está 
inspirado en las intrincadas redes que 
forman las vías de los tranvías. 

El laberinto que se genera al hacer 
funcionar el programa, es aleatorio, v 
será distinto cada vez. Una vez gene¬ 
rado el laberinto, aparece en la línea 
superior de la pantalla un cuadradito, 
que es el tranvía, v el jugador tendrá 
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que conducirlo hasta la línea inferior 
de la pantalla, utilizando las teclas 
que el programa indica en sus ins¬ 
trucciones. Para descender por el 
laberinto, se ha de escoger primero 
una línea de las que tienen su origen 
en la parte superior de la pantalla, 
utilizando las teclas O y TI, v pul¬ 
sando RETURN una vez que se ha 
escogido. Esta línea de origen no se 
puede abandonar hasta que se llega al 
final del laberinto o hasta que haya 


que renunciar (pulsando RETURN) 
por haber llegado a un callejón sin 
salida. 

Al completar el juego, el programa 
muestra en pantalla el número de 
movimientos que se han realizado. 


1 PRINt"?^ : PR ™ T ">«»*»#######" GOSIJB40 

2 V=7680^P=32^GOTO7° 396 PRINT CHR$ '" '?+INT<RND< 1 >*2>+123>; :NEXTB=1 

3 GETfi*:IF fl$="" THEN3 

4 IF A*»"G" AND V> 7680 THEN POKEV,P : V=V-1 : P=PEEK<V • 

5 IF A$=’H" ANDV<7701 THEN POKEV/P ; V*V+1 : P=PEEK | 'V!) 

6 IF A$*CHR$<13) THEN 10 ' ' 

7 PÜKE V/P+128 

8 G0T03 

9 REM 

10 GET A$:IF A$="" THEN 10 

11 IF A*»"T" THEN D=1 

12 IF A#»"U" THEN B=3 

13 IF A*«"V" THEN I )=5 

14 IF A*="N" THEN D=7 

15 IF A$="V"THEN D=2 

16 IF A$="B" THEN D*4 

17 IF A$="G" THEN D=6 

18 IF A$="H" THEN D=8 

21 GOTO10 

22 IF PEEK(V-23)0 P0RP=78 THEN 10 

23 POKEV / P : V=Y-23 : G0T038 

24 IF PEEK<V-22)=P THEN 10 

25 POKEV/P:V-V-22:G0T038 

26 IF PEEK(V-21)OP OR 9-77 THEN 10 

27 POKEV/P:V=V-21:G0T038 

28 IF PEEK<V+22) -9 THEN 10 

29 POKEV/P : V=V+22:G0T038 

30 IF PEEKCV+21 )OP OR P=77 THEN 10 

31 POKEV/ P: V=V+21 : G0T038 

32 IF PEEK<V-1)=P THEN ¡0 

33 POKEV/P:V=V-1:GOTO 38 


I " 


END 
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34 IF PEEK<V+23)OP OR P=7S THEN 10 

35 P0KEV..P-' V=V+23 ; GOTO 38 

36 IF PEEK<V+1>=P THEN 10 

37 POKEV.P: V=V+1 

38 V2=V+22 : P=PEEK< V) : IF PEEK< V2) =32 THEN PRINT"OLO"M"MOV. " : E 
ND 

39 POKEYí P+128 : M=M+1 : GOTO 10 

40 PRINT"HOLfl ESTE ES UN 

41 PRINT"SE LLAMA TRANVIA 

42 PRINT"MELIGE POR DONDE 

43 PRINT"CUANDO ESTES EN LA 

44 PRINT"MSPULSA UNA TECLAS' 

47 WAIT203/191 ; GETA$ 

48 PRINT"OLAS TECLAS:" 

43 PRINT"T V U" 

50 PRINT" G*H <RETURN>-RENUNCIA"; 

51 PRINT"V B N" 

52 PRINT"MSI ACABAS EN MENOS DE 20 MOVIMIENTOS ERES UN GENIO" 

53 PRINT")!PULSA UNA TECLA" 

54 WAIT203,191:GETA$:PRINT'LT';:RETURN 


PROGRAMA TIPO LABERINTO" 

PORQUE TIENES QUE SEGUIR LOS RAILES" 

EMPEZAR CON LAS TECLASG-IZQUIERDA H-DERECHA" 
LINEA PULSA RETURN" 


III 


( -'N 

SUSCRIBASE 
POR TELEFONO 

* más fácil, 

♦ más cómodo, 

J * más rápido 

Telf. (91) 733 7969 

7 días por semana, 24 horas a su servicio 
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Jesús Fernández, lector de nuestra 
revista en Salamanca, nos envía este 
juego del ahorcado. Este conocido 
pasatiempo consiste en adivinar una 
palabra oculta, pensada por otro 
jugador. Para adivinarla sólo se dis¬ 
pone de una serie de intentos, en los 


que hay que ir ensayando letras, una 
por una, hasta acercar con todas las 
que contiene la palabra. Al comenzar 
el programa, uno de los jugadores 
introduce la palabra o frase que el 
otro jugador debe adivinar. Esta fra¬ 
se, no aparece en la pantalla al 


introducirla, y queda oculta hasta que 
sea adivinada, o hasta que se acaben 
los intentos. El programa incluye 
diversos sonidos musicales según que 
se acierte o no con las letras ensaya¬ 
das. Al terminar el juego se indica el 
número de intentos realizados. 
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1 REM##JUEGO DEL RHORCADO**JESUS FERNANDEZ 
5 POKE36879.110 

10 PRINT H 3M JUEGO DEL AHORCADO ” 

15 GQSUB350 

20 PRINT"SIÍDWWÍESCRIBE UNA PALABRA” 

30 GETA$ : IFA$= H ”THEN30 

40 IFA$=CHR$<13)AMBLEN<P$)>0THEN60 

41 IFA$=” ”THEN45 

43 IFA$<”A”ÜRA$>”Z"THEN30 
45 P$=P$+A$ 


48 


'jCLg¿Lz±nje_ 


NUMERO 5 


OOOOOOOOOOO 







































































0 

50 

o 

60 

o 

61 

o 

62 

O 

63 

o 

64 

o 

66 

o 

1 

70 

o 

80 

O | 

85 

21 

90 

o 

100 


110 

o 

0 1 

A 

120 

u 

o 

125 

n 

12b 

O 

128 

o 

129 

o 1 

130 

o I 

135 

o 

136 

o 

140 

0 

150 

0 

170 

o i 

180 

o I 

183 

o 

185 

o 

190 

o 

200 


210 

o 1 

220 

0 I 

230 

n 1 

250 

21 

255 

o 

r\ 

260 

w 1 

1 

265 

1 

O 1 

267 

o 

270 

o 

280 

o 

285 

O 1 

290 

o 1 

295 

o I 

300 

o 

303 

o 

305 

o 

306 

o 

310 

o I 

350 

0 j 

360 

o 

370 

o 

380 

o 

/A 

400 

O 1 
n 

405 

O 1 

410 

o 

420 

o 
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"; : G0T066 


ni 


GÜTQ62 


?R5"; 


GOSUB200 


H 


50 GOSUB600 


PRI NT : PRI NT " mSLfi PñLRBRR ERRi 
IFF>9THENPRINT" !7' 


% 


"C " 3FRLL0SB "» 
" : PRIWT ?% 


ii 


ii ii 


THEN280 


-.1.JiJüi-ifJi Ji ji ji-jijiji vtiJi Ji ji 


HiMISRCIERTOl" j 


PREMIADO CON 

PESETAS 
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440 
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455 

456 
460 
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502 
505 
510 
520 
530 
540 
550 
555 
590 
600 
605 
610 
615 
620 
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Viene de la página anterior 

NEXTL 

POKE36878.0 
PRINT'lil " 

POKE36875.0 
RETURN 

REM*#MUSICfi FRLLÜ** 

PRI NT " 

P0KE36878,15 
FGRfi-100TG200STEP- 7 
L*INT<RND<l)*50)+n 
P0KE36876.L+2 
NEXTR 

POKE36878.0 
PGKE36876,0 
RETURN 

REM##MUSICR FINAL## 

P0KE36378,15 
F0Rñ=250TO200STEP-’2 
PGKE36876,fl+2 
FORri=lTO100 : NEXTM 
NEXTR 

FORR=200TÜ250STEP2 
P0KE36876.R 
F0RM»1T0100:NEXTM 
NEXTR 

PGKE36878;0 
PÜKE36876;0 
RETURN • 

REM##BUCLE COMPARACION## 

FORO 55 1T OLEN <N $) 

IFR$=MIIi$<W$,0, 1>THEN125 
NEXTÜ 

W$=N$+R$•RETURN 

pr i nt " msmmmmmmm 1 ; trb < i+len < u* > >; fi$ = pr i nt " ai" •• return 

8=8119 : X-S135 : GOT0850 
G»G~88 : X=X-83 :GOTO850 
F GRV=GT OXSTEP 
POKEV,102 : NEXTV 
GOTO135 
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Los marcianitos atacan de nuevo, 
esta vez a través del programa que 
recibimos de José .M. Campos, desde 
Pontevedra. El juego consiste en des¬ 
plazarse con una nave a través de un 
escenario de planetas y satélites, in¬ 
tentando destruir el mayor número 
posible de naves marcianas, teniendo 
buen cuidado de no chocar con nin- 
gunao de los planetas, satélites o 
asteroides que hay por los alrededo¬ 
res. El jugador dispone de tres vidas, 
o naves, que debe hacer durar tanto 
como sea posible. El programa se 


carga en dos partes, cada una de las 
cuales hay que teclear y guardar en el 
cassette por separado. 

Para jugar se carga la primera 
parte, se escribe RUN con lo que 
aparece la presentación y las instruc¬ 
ciones y al terminar se nos pide que 
carguemos la segunda parte, que con¬ 
viene guardar en la cinta inmediata¬ 
mente a continuación de la primera. 

En su versión original, uno de los 
planetas lleva un satélite que gira a su 
alrededor; esto conlleva una disminu¬ 
ción de la velocidad del juego. José 


VIC-20 

M., el autor del programa, sugiere' 
que se elimine este efecto del satélite, 
anulando las líneas 1.000, 200 y 205 y 
modificando el final de la línea 160 
a...: IF RND (1) <. 4 THEN 210. 

Así mismo, y si se desea añadir un 
contador de tiempo al programa, se 
puede hacer añadiendo al final de la 
línea 17 .... : TI$ = “000000” e 
incluyendo las líneas siguientes: 

99 PRINT” (HOME) (CTRL ON) (1 
ESPACIO) (21 CRSR DOWN)” 
VAL(TI$) 211 IF TI$ > “000200” 
THEN 500 



NUMERO 5 

























o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


II 


PREMIADO CON 

PESETAS 



M 


PRINT : PRINT 

II • 


MñVO DE 1984' : PRI NT " MflSMMPULSR UN 


5 P0KE52128 : P0KE56,28:CLR 
10 F0RX=7168T07239:RERDD = POKEX,D = HEXT 
20 FOR1=7424107431:PÜKEI,0:NEXT 
30 P0KE36879,8:PRINT" ■ PRINT:PRINT:PRINT 

40 print" sr-* «¡r.& sr^ ieii sn 

58 PRINT" wm I I «llil 131! 3) 

60 PRINT" \ST 1 SI’HT.ÜT TSWP 1 
70 PR INT " SVA FmA zM VT. .A.!*. ’ íTmA SI ■, 

80 PRINT"! la^SI! SIIII9 mII 11315"; 

90 PRINT"! I"i3r '5315 W«3I5 ’.SPHI l'iSTdl" 

95 PRINT"HDD POR JOSE CAMPOS"•'PRINT"WS 

ñ TECLA" 

100 POKE198,@ : WAIT198,1 

120 P0KE36869,255 : PRINT"ü ¡á&ATAQUE MRRCIANQI PRINT:PRINT 

130 PRINT" KDEBERA3 DESTRUIR EL MRVOR NUMERO POSIBLE DE NAVES ENEMIGAS" 

140 PRINT" SMHESTfl ES TU NAVE! A":PRINT"» Sfr 1 ESTA! B SEL ENEMIGO." 

145 PRINT" 3CUIDADO! NO CHOQUES . MCON LOS PLANETAS .TEOMFG3I NI SUS SATELITE 
SI H" 

150 PRINT"» 3FRRA MOVERTE USA" : PRINT" SFI,D,Ü,< V SPACE" : PRINT"*W1*»»IBFULSR UN 
A TECLA 

160 POKE198,0:WAIT198,1 : PGKE650,128:P0KE36869,240 : PRINT" n_QAD" 

170 POKE198,3:P0KE632,19:P0KE633,13 

200 DATA4,26,99,130,130,99,26,4,32,88,198,65,65,198,88,32 

210 DATA24,126,255,219,126,60,0,0,0,0,0,255,0,0,0,0 

220 DATAS,15,31,59,127,127,239,175,192,240,248,252,62,246,255,239 

230 DATA254,254,127,123,63,31,15,3,255,249,255,222,188,248,240,192 

240 DATA0,0,24,60,44,24,0,0 
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5 CLR 

10 P0KE36879, 8 : PRI NT " Sal RECUERDA " 

15 PRINT"W PARA MOVERTE USA : " : PRINT">fflO A,D, 0 ,< V SPACE" •' PRINT H MWPiaPULSA UNA TEC 
LA" 

16 POKE198;0 : HAITI98,1-POKE650,128 : PRINT M •MP=7680 : CF-38400 : E=1 : T=1 : A=5 : B=10♦PU 
=0 

17 PÜKE36869 , 255: P0KE36879 , 8 : V=36878 : S4=36877 

18 DIMñ C5 >,B<5 >:FORZ*0TO5:A <Z)=3:NEXT 
30 FORZ=0TO5:GETX$•*IFX»*""ANDT-0THENPOKE36877,0:G0T096 
40 POKEV, 8 • P0KES4,240 : P0KEMP+BP22+A .■ 32 : ñ=A+T/E 
50 T=T+<X$= ,, A ,, >-<X$= ,, D ,, > • IFT>1THENT=1 
55 IFT<-1THENT=-1 


jí 


B»B+<X$="Q" )-CX$= 


o n 
> 



60 IFA<0THENfl=21 
65 IFBC0THENB=0 
70 IFA>21THENA=0 
75 IFB>22THENB=22 

80 P0KECP+B*22+H,1•N=1:IFT=~1THENN=0 
85 IFPEEK(MP+BP22+A> =32THEN95 
90 E=E+1:FÜRQ=190TO140STEP-.5:P0KES4,Q:NEXT:FÜRQ=0TÜ200 : NEXT:PQKES4,0 
92 P0KECP+BP22+A,2:FORQ=1TO300:NEXT:IFE>3THEN500 

95 P0KEMP+B#22+A,N 

96 PRINT , '^«!»IIHW[DEJ»IFÜWIIB!M'®£ÍÍÍÍÍ»^ 

GMim 11 

97 PR I NT " »»PPP»»PPPPUH]^E)MFGtf¡IH]*roKM*^^ " 

98 PR INT : PR I NT : PR I NT : PRINT : PR*I NT " &PPPPPF mXMJH !MttPPPPPBiaH 

HlftüH" 

100 IFX$0" "THEN150 

103 K=T : IFK=0THENK=1 

104 K=T : IFK=8THENK=1 

105 R1=INT(A) 

110 A1=A1+K : P0KECP+BP22+A1,7:P=PEEK<MP+B*22+A1>•IFP=32THEN13Ü 
115 FÜRÜ=0TÜ5 : IFB=B<Q)ANDA1=A(Q>THENA<Q>=3 : PU=PU+10 
120 NEXTQ:POKEV,15-P0KES4,130•GOTO135 
130 PGKEMP+BP22+A1,3 : IFA1<21ANDA1>0THEN110 
135 F0RA2-1NT(A > +KTOA1STEPK : PÜKEMP+BP22+A2,32:NEXT:P0KES4,0 
150 IFA(Z)=3THEN220 

160 POKEMP+B<Z)P22+A<Z >,32:IFRND<1><.4THEN200 

165 B(Z)=B<Z) + <B(Z)>B)-<B(ZKV) : A(Z)=ñ(Z) + CA(Z»A)-(A(ZKA) :G0TÜ217 

200 RESTORE:F0RH=1T012 : READV : P0KE7845+V+H,8:P0KE38565+V+H,3 : FORV=0TO60=NEXTV 

205 PQKE7845+V+H, 32 : NEXTH 

210 A < Z)=A(Z > +1NT <RND<1>#3-1) : B < Z > =B<Z > +1NT< RND <1>#3-1) 

212 IFA < Z ><0THENA C Z)-21 

214 IFB<ZK0THENBCZ>=0 

215 IFA < Z)>21THENA(Z > =0 

216 IFB < Z »21THENB (Z > =21 

217 IFB< Z >=BANDA< Z)*INT<A+. 5)THENE-E+1 ; P0KECP+BP22+A,2 : FORQ=0TO300:NEXT 

218 IFE>3THEN500 

219 PÜKECP+B<Z>*22+ACZ>,1 : POKEMP+B<Z)P22+A<Z),2 

220 IFACZ)O30RRND< 1X. 9THEN235 

225 A ( Z ) = INT < RND ( 1 > #22 > : B < Z > 55 1 NT ( RND (1 > #21) 

235 NEXTZ•GOTO30 

500 POKE650,0: POKEV, 0: PÜKES4,0: FÜRR=1TÜ1000: NEXT : PRINT"WAN DESTRUIDO T 
U NAVE" 

510 PRINT"TUS PUNTOS SON " J F’U : PRINT"3ÍWPISUUEGAS OTRA ?" 

512 PRINT"20ÜFULSA 2 VECES S PARA MSI" 
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530 GETX$ : IFX$=""THEN530 

535 IFX$="S n THENRUN16 

540 IFX$="N"THENP0KE36869,240:END 

550 GÜTÜ530 

1000 DRTR1,1,23,45,66,86,106,104,80,56,33,11 
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DEFOREST 

MICROINFORMATICA 


TODO SOBRE COMMODORE - 64 Y VIC - 20 

ai m m 

LOS ULTIMOS JUEGOS EN EL MERCADO 
TODO EN PERIFERICOS - LIBROS 
PROGRAMAS DE GESTION - ETC. 

SOLICITE INFORMACION POR CORREO 


BARCELONA-I5 

C/ Viladomat, 105. Tel. 223 72 29 


LE ROííAMOS QUE PARA 
CUALQUIER CONSULTA 
CONCERNIENTE A Sll 
SUSCRIPCION. 
LLAME AL TELEFONO 

(91)7339662 





iHOLA, SOY TRONIK 



-Todo sobre el 
COMMODORE 64 
y VIC 20 

• Periféricos 

• Múltiples 
programas. 

• Libros y revistas. 

• Recompramos 

tu ordenador como 
entrada de otro 
nuevo. 

•Cursillosde BASIC 
a todos los niveles. 



LUVI 

ORDENADORES 

PERSONALES 

Vizcaya. 6 - Tfno. 230 44 84/ 227 89 62 

MADRID 


IMPORTACION DIRECTA 
DE LOS MEJORES ORDENADORES 

COMMODORE 64 
ZX SPECTRUM 

Microdrive e interface 

¡PRECIOS INCREIBLES i 

UNA LLAMADA TELEFONICA LE 
HARA AHORRAR MUCHO DINERO 

CONDICIONES ESPECIALES 
PARA MAYORISTAS Y TIENDAS 

SEIS MESES DE 
GARANTIA SERVICIO DE 
REPARACIONES 

VENTA DIRECTA 
O REEMBOLSO 

Para Información o 
encargos, telefonear a 

241 55 18 Barcelona 
726 04 83 Sabadell 
(solo tardes) 

COMPUTER DISKONT 

Plaza Blasco de Garay, 17,1 
BARCELONA-4 
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3 BIME<10> 

5 P0KE36878,14 

10 FORX=0TO25 : PRINT" a( " : NEXT 

20 P0KE36879.* 42 

25 E<0> = 16 : E(1> =5 : E2> = 12•E<3> = 15 : E<4>=20 : E < 5 ) = 1 : E(6> =32 

26 E < 7 > = 12 : E < 8)=15 : E < 9)=3 : E <10 > = 1 

27 FORBS=0T010 

28 P0KE7SS3+BSE < B3 > : FORF=0TG250 : NEXTF : NEXTDS 
30 FGRX=ÜTÜ82STEP2 

40 PGKE7894+X,1:P0KE36876,195•FORZX=0TO75:NEXTZX 
50 PGKE7894+X .* 32 : P0KE36876 .• 0 '• NEXT 
55 PÜKE7894+X, 1 

60 FORW=0TO7 

65 PÓKE7S94+X+38400-7680,W•FORHL=0TO200 : NEXT 
70 NEXT 

80 P0KE36879,27=IFM1>8THEN330 
98 P0KE36879,27•0=33400-7680 

100 FQRX=0TO25:PRINT"3 "•NEXT 

110 FORS=7726TO7743:POKES,99:NEXT:PÜKE7725,79•P0KE7744,88 
120 FQRS=7747T08187STEP22:POKES,101:POKES+19,103•NEXT 
130 FORS=7770TO7787:POKES,9 : NEXT 
140 FORS=7792TO7809POKES,22-NEXT ' 


VIC-20 

PELOTA LOCA es un juego para 
el VIC 20, basado en el conocido 
juego de los “ladrillos”, en el que se 
trata de derribar una pared de ladri¬ 
llos mediante una pelota y una raque¬ 
ta controlada por el jugador, y que 
nos envía José Constanti desde Ta¬ 
rragona. La raqueta se controla me¬ 
diante las teclas C y Z que permiten 
desplazarla por la línea inferior de la 
pantalla. El juego presenta dos parti¬ 
cularidades interesantes: la primera 
de ellas es que la pelota puede variar 
su trayectoria ascendente en cual¬ 
quier momento y de forma aleatoria, 
lo que complica el juego. La segunda 
consiste en tres postes que se interpo¬ 
nen entre la pelota y la pared a 
derribar, y que hacen más complica¬ 
do llegar hasta la pared. Con todo 
esto pueden pasarse unas cuantas 
horas entretenidas hasta acabar con 
todos los ladrillos. 
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150 
160 
165 
170 
180 
185 
190 
200 
205 
210 

220 


•-l~l l~ 
.z.cl.-J 

230 

240 

250 

251 

cr 

260 

—> i:r 

•i. i -J 

280 

283 

284 

285 

—i "7 


F0RS=7814TÜ7831:PÜKES, 9 ■ NEXT : P0KE7S23,22 : P0KE7822,22 
FORS=7836T07853 : PÜKES.. 9 : NEXT : PÜKE7845,3 : P0KE7844,3 
PGKE7839,22:PÜKE7840,22:PÜKE7849,22:PÜKE7850,22 
PÜKE7866 .• 85 : PÜKE7867, 73 : PÜKE7888,74 : P0KE7889, 75 
PÜKE7949,85:POKE7950,73•PÜKE7959,85:PÜKE7968,73 
P0KE7971,74:PÜKE7972,75 = PÜKE7981,74:PÜKE7982,75:M1=0 
PRI NT '• PUNTUflC IÜN = M ; M1 

H=3146•8=7937 D=21 : P0KE36873,15•M1=0 
0=38400-768G 

POKER-í,70:POKER,70:P0KEH+1,70 • 

PuKER— 1 +L¡, 4 : POKEfi+G .• 4 : POKEA+1+G, 4 
POKER, 81 

pf'i i/ ppxr- 

I FF'EEK < F'+D >032THEN 1000 

POKER, 32: F-P+D: F'OKEP, 81 ■ POKEP+G, 7 

I FF’EEK < 197 > =330RPEEK < 197 )=34THEH 252 

GO TO 260 

GO TO2000 

PR I NT "PUNTUflC I ON= " ; M1 
RS=RNIK1> 

IFRS<0-9THEN290 


GÜT0287 

GÜT0287 


IFD=-22THEND=-21 
IFD--21THENIi=~23 
IFD=-23THENB=-22•G0T0287 

G0T0290 

P0KE36876,195:FÜRCX=0TG15•NEXT:P0KE36876,0 


290 FÜRRR=0TO100•NEXT 
300 IFPC8147THEN230 

319 m=m + i 

320 G0TO5 

330 IFM1<151THEN390 
348 F0RS=0T025 '• PR I NT “ 

350 PR 1 NT " i i IB U E N R PUNTURCI ÜN " 

353 PR I NT" IGUE"; M1 -1 

354 FORLL=148TO220STEP- 7:P0KE36876,LL:NEXT 

355 FÜRLL~128TÜ200 : P0KE36876,LL•NEXT 

356 FÜRLL=200TO 128STEP-1 • P0KE36876, LL : NEXT : PGKE36876,0 


ii 


NEXT 


357 FORJJ=0TÜ2000:NEXT 


.. 240 


396 

007 


H 


360 GOT090 
390 PRINT"S 

395 PQKE36874,170:POKE3687 

PR I NT " M?Me!Mi!M«[i!Ml'Mí****»*l.ñST IMh "011-1 

FORLL=0T05000 : NEXT : P0KE36874,0:PÜKE36877,0:P0KE36878,O:ehji 
415 F'RINT" 

1009 IF F'EEK (P+D ) 0101THEN1020 

1010 IF D=~ 2 3THFNB=-21 : GOTO 1020 
1015 B=23 

1020 I FF'EEK<P+D> <> 103THEN1040 

1030 IFB=-21THEND--23 : GOTO1040 
1@35 D=21 

1040 I FF'EEK ( P+D > =73THEND=-2 . 1 . 

1050 I FF’EEK íP+D> =74THENB=21 
1068 I FF'EEK < P+D >=75THEHD=23 
1070 I FF'EEK < P+D > =85THENB=-23 
1 080 T PPFCKF'+D •' =79THENB=23 ‘ 

1090 I FF'EEK < P+D ) =88THEND=2 i 
1100 IFF'EEK Fp+D>099THEN1 120 
111@ IFD=-21THENB=23 : GOTO11 
1111 IF D=-22THEND=22:GOTO1120 
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1115 
1120 
1140 

1050 
1 060 
1070 
1080 
1090 
1 1 00 
1110 
lili 
1115 
1120 
1140 
1145 

1150 

1151 
1 200 
1210 
1215 
1220 
1 225 
1230 
1234 
1237 
1240 
1260 
1800 
1310 
1315 
1320 
1325 
1330 
1334 
1337 
1340 
1360 
1400 
1410 
1415 
1420 
1425 
1430 
1434 
1437 
1440 
1460 
1500 
1515 
1520 
2000 
2010 
2020 
2030 


00TÜ1240 
GOTO1240 
GÜT 01240 
GOTn1240 
GOTO1240 


2050 

2055 

2060 


Viene de la página anterior 

D-21 

IFPEEK < P+D > O70THEN1200 
IF P+Ii=R T M E NI-= - 2 2 : fifiT n 1 J 5J 

IFPEEK<P+D> =74THEND=21 
IFPEEK <P+D > =75THEND=23 
IFPEEK<P+D>=85THEND=-23 
IFPEEK < P+DT=79THEND=23 " 

IFPEC' r (P+D)=80THEND=21 
I FPEEK < P+D >099THEN1120 
IFD=-21THEND=23 : GOTOl120 
IFD=~22THEND=22:GOTOl120 
D=21 

I FPEEK C P+D > O70THEN1200 
IFP+D=RTHEND=-22 ; GOTOl151 
IFP+D=R-1THEND=-23:GOTO1151 
D=-21 : Gü TO1151 
GOTO1000 

I FPEEK < P+D > 09THEN1300 
POKEP+D- 32 
IFD=-21THEND=23 
IFD=~23THEND=21 
IFD=21THEND=-23 
IFD=23THEND=-21 
IFD=22THENB=-22 
IFD=-22THEND=22 
M 1=111 + 1 
GOTO1000 

I FPEEK < P+D >022THEN1400 
POKEP+D,32 
IFD--21THEND=23 
IFD=~23THEND=21 
IFD=21THEND=-23 
IFD=23THEND=-21 
IFD=22THEND=-22 
IFD=-22THEWD=22 
M1=M1+5 
GOTO1000 

í FPEEK<P+D> O3THEN1500 
POKEP+D,32 

IFD=-21THEND=23 : GOTO1440 
I FD=-~23THEHD=21 : GOTO 1440 
1FD=21THEND=-23•GOTO1440 
IFD=23T HEND=-21 : GOTO1440 
IFD=22THEND=~22 : GOTO1440 
IF D=- 2 2 T H E N D=2 2 
MI-MI + 100 
GOTO1000 

PRI NT " rasas PUHTUñCION= " j M1 
POKE36876,215•FORS=0TO15 : NEKT•P0KE36876,O 
GOT0230 

IFPEEK<197 >=33ñNDñ=8145THEN2060 
IFPEEK<197>=34ñNDñ=8160THEN2060 
POKER-1,32 : POKER,32 : POKÉñ+1,32 
IFPEEK<197 > =33THENfi=fl-1 
I FPEEK197 > =34THENft=fi+1 * 

POKER-1,70•POKER,70 : POKER+1,70 
POKER-1+G,4:POKER+G,4:POKER+1+G,4 
GOT0260 


GOTO1340 
GOT 01340 
GOTO1340 
GOT 01340 
GOTO1360 
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Commodore 64 


En este juego el C64 trata de evitar 
con un sapo que lanza “escupitajos 
mortales, que tú, controlando el mo¬ 
vimiento de una mariposa, puedas 
recoger los 5 granitos de polen distri¬ 
buidos por la pantalla. 


El sapo escupe unos puntitos ne¬ 
gros que te serán difíciles de apreciar 
en tu televisión. Además, hay un 
junco contra el que no puedes chocar 
o te destruirás. 

Por supuesto, te ocurrirá lo mismo 


si te estrellas con los límites del 
recuadro dentro del que se puede 
mover tu mariposa. Las instrucciones 
están dentro del programa y no nece¬ 
sitas Joystick para jugar con él. Y... 
¡cuidado con el sapo! 
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O 

O 
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0 El 

1 REM*## EL SñPO VENENOSO *** 

2 GOSUB 3080 

3 P0KE53278,0•PÜKE53279, Q : P0KE53264,0 

4 PRI NT 11 ¡T : SC=0 : OLE 

5 PGKE53280, 9 : P0KE53281,3:GOSUB500 

10 V-53248•POKEV+21,255:POKE2040,13:POKE2041,14 
1 POKE2042,15 : POKE2043,15:PÜKE2044,15:POKE2045,15:POKE2046,15:POKE2047,15 
25 POKEV+33,10 : POKEV+40,5:POKEV+41,7:POKEV+42,7:PÜKEV+43,7:POKEV+44,7:POKEV+45,7• 
: POKEV+46,7 

30 FORI-0TO190:REfiüfi:P0KE832+I,ñ:NEXT 
35 X*215 : V=90 :11=254 : N=200 
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Viene de la página anterior 
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40 POKEV+1, V•POKEV,X:PGKEV+2,M:POKEV+3,N 

41 POKEV+39,7 


42 

PÜKEV+4, 

192:POKE 

V+5,6 

5:POKEV 

+6, 

75: 

POKE 

V+7 

,75:POK 

EV+ 

8,112 : POKEV+9, 

43 

POKEV+10 

,100 : POK 

EV+11 

, 200 

: PO 

KEV 

+ 12 

, 258 

: POKEV+1 

**“» 

O .• 

150 


SI 

POKEV+39 

, 1 •• FORTM 

= 1T Ü5 

: NEX 

T 









100 

DRTR0,1 

35,192,1 

,207, 

192, 

3, 1 

59, 

240 

, 15, 

191 

,224, 

31 

, 19 

1,240 

110 

DRTR63, 

191,224, 

127, ( 1 

*-i "7 

i. i , c- 

40, 

v c ¡ c ; 

u. v 1 s- 1 

, 12 

7,19 

2, 1 

27, 12 

— i 
<, 

96, 

63,126 

120 

DRTR240 

,31,125, 

224, 1 

5, 12 

3, 1 

92, 

7, 1 

19,0 

, 3, 

108, 0 

, 1 

11, 

255 

130 

BRTR128 

,255,255 

, 224, 

111, 

255 

, 12 

8,2 

, 144 

, 0, 

4, 144 

, 0 

, 8, 

72 


140 URTH0 , 4, 68.. 0, 0 

141 BRTñl4,0,0, 10,0,0,251,128,0, 127, 128,0,191,128,0,71,224,0,59,252,0,31 

142 DRTR255,128,7,255,192,7,255,224,7,255,224,7,243,240,7,180,240 

143 HRTR7,119,112,3,123,176,6,253,240,12,251,176 

144 DRTR0,20,7,0,0,15,0,0,0,0,0,0,0 

145 DRTR0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

146 DRTR0,20,0,0,42,0,0,20,0,0,8,0,0,0,0,0,0,0,0,0,0,0 

147 IIRTR0,0,0,0,0, 0,0, 0,0,0,0,0,0,0,0 

148 POKEV+39,0:FORTN=1TÜ5:NEXT 
150 IFPEEK(197 >=23THENV=Y+S 
170 1FPEEK(197 > = 10THENX=X-3 

180 IFPEEK(197 > = 18THENX=X+3 

190 IFX>255THEN6OSUB5000 

191 IFX<0THENGOSUB5030 

210 POKEV+39,4 

211 IFPEEK C53279 > = 1THEN7000 . 

212 IFPEEK CV+30 > =5 THEN6000 

213 IFPEEK(V+30)-9 THEN6010 

214 IFPEEK <V+30> = 17THEN6020 

215 IFPEEK CV+30>*33THEN6030 

216 IFPEEK CV+30> =65THEN6040 

217 TT= INT <RND < 0>#12 > +1•IFTT=6THENGOSUB8000 

lil 

250 V=V-2 : GOTO40 

500 FORU=1024TO1063:POKEU,94:NEXT 
510 F0RU=1103T02023STEP40:POKEU,94:NEXT 
520 FÜRU=2022TÜ 1984STEP-1 : POKEU, 94 : NEXT 
530 F0RU=1984T01064STEP-40 = POKEU,94■NEXT 
540 FORF-55296T055335:POKER,10:NEXT 
550 FORP=55375TO56295STEP40:POKER,10:NEXT 
560 F0RP=56294T056256STEF'-1 : POKER, 10 NEXT 
570 FORP=56256TO55295STEP-40:POKER,10:NEXT 

575 FOR BR=1552TÜ1825STEP39:POKEBR,78 = NEXT:POKE1357,78 

576 FORBR=1396T01513STEP39:POKEBR ,224:NEXT 

577 F0RBR=55824T056897STEP39:POKEBR,5:NEXT:P0KE55629,5 

578 F0RBR=55663T055785STEP39 = POKEBR, 12 = NEXT 

608 PRINT''»INvMl!Mia^«M«e[ell»!iniH[(!li!>>Í»>Í»Í>»>Í>B>IE)^'UNTOSa'', SC: PRINT"SS" : RETURN 

5000 X=X-255 :P0K.EV+16,1: RETURN 

5030 IFX<0THENX=X+255:POKEV+16,0:RETURN 

6000 P0KE53269, PEEK<53269>ñNB<255-2T2):P0KE53278,0:SC=SC+5:GOSUB7500:GOTO6049 


6010 P0KE53269,PEEK C 53269)AND C 255-2 f3 >:SC=SC+10 
6020 P0KE53269,PEEK(53269 > AND(255-2T4 >:SC=SC+15 
6030 P0KE53269,PEEKC53269> AND(255-2 T5 >:SC=SC+20 
6040 P0KE53269,PEEK C53269)AND <255-2 T6):SC=SC+10 
6049 IFSC=60THEN7560 


GOSIJB7500: GOTO6049 
GOSUB7500:GOTO6049 
GOSUB7500:GOTO6049 
GOSUB7500:GOTO6049 


58 


£Lg£LZin£- 


NUMERO 5 


oooooooooooooooooooooooooooooooooooooooooooooooooooooooooc 

















ooooooooooooooooooooooooooooooooooooooooooooooooc 


6050 

7000 

7001 
7100 
7150 
7160 
7200 
7210 
7220 
7500 
7510 
7520 
7530 
7540 
7550 
7560 
7570 
7580 

7590 

7591 
7600 
7610 
7620 
7630 
7640 
8000 
8001 
8002 

8003 

8004 
8010 
8015 
8020 
8030 
8050 
9000 
90 1 0 
9015 

9020 

9021 

9022 
9030 
9040 
9050 
9060 
9070 


«MPUNTOSH"; SC • PRINT"»" : GOTO250 


PRI NT " »»íSíBí|íBí»»Bí|í»Bí| 

POKEV,215:PQKEV+1,90:POKEV+21,0 

P0KE35281.0:PRINT ,, 3W»»»IWTUS RLRS SE HRN PARTIDO. M 

PRINT n MMW*CÜNSEGÜISTE : ";SC;“PUNTOS.“ 

PRINT"MMW1I3UIERES INTENTARLO DE NUEVO?" 

POKE <197 >,0 
GETfi$: IFR** n S ,, THEN3 
I Ffi$0" N" THEN7200 
END 

W«54272 : P0KE54296,15 

POKEW+6,0: POKEVV+5,12: PQKEVV+1,200 

POKEVV+3,40 

RETURN 

POKEW+4, 0 : POKEVV+4,65 
FÜRMM-1TO250 *• NEXTMM 
POKEVV+4,0:POKEVV+24,0 
REM 

POKEV,215:POKEV+1,90:POKEV+21,0:PRINT "IT':P0KE53281,O 

PR I NT “ kJfE: I EN JUGADO! ! HAS VENO I DO AL SAPO! ! “ : PR I NT “ HVICONSEGUISTE “; SC; 

PRINT" PUNTOS" 

S-54272 : F’ÜKES+24,15 

POKES+1,110:POKÉS+5,0 : POKES+6,0 

FORJ=1TOS:POKES+4,33:FORK=1TÜ70 

NEXTK:POKES+4,0:FORK-1TO80:NEXTK 

NEXTJ:POKES+24,0:GOTO7150 

VV=54272 : POKE VV+24, 15 : POKEW+6. 240 

POKEW+1,4: POKEW+5,0: POKEVV+4,33 

FQRNN=1024TO250STEP-32 

POKEW+1, NN/256: POKEVV, NNAND255: NEXTNN 

POKEVV+4,0:P0KE54296,0 

POKE53277,PEEK< 53277 >ORC2 TI>:P0KE53271,PEEKC53271)OR<2 TI) 

G=INTC2*RND(1> > + l:IFG=2THEN8030 

FORG 85 1771TO1748STEP-2 : POKEG, 46: F0RTM=1T05: NE’XTTM ■' POKEG, 32 : NEXTG •' GOTO8050 
FORG=1771TO1074STEP-41:POKEG,46:FGRTM=1TOS : NEXTTM:POKEG,32:NEXTG:GOTO8050 
P0KE53277,PEEK <53277 > AND <255-2 TI V :P0KE53271,PEEK<53271)ANDC255-2TI):RETURN. 
PRINT"IT : POKE53281,0: PRINT" «l!*l»l»lll»llll£L SAPO VENENOSOS" 
PRINT n »Ofl»*»lDEBERAS RECOGER 5 BOLAS DE POLEN” 

PRINT"WIÍEIUE ESTAN DISTRIBUIDAS EN LA PANTALLA." 

print h »»*i»h impide que el viento te suba” 

PR I NT" ÜiiiaAS a IZQUIERDA " 

PR I NT ” )Í»ISD1 --DERECHA ” 

print"*m*itus alas son frágiles, no toques 

PRINT n )WD»»»ICUIDñDO CON EL SAPO!" 

PRINT 1 *MiFULSA CUALQUIER TECLA PARA EMPEZAR" 

GETA$:IFñ$="”THEN9060 
RETURN 


EL BORDE NI EL JUNCO!." 
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1 REM**LOTERIfl*# DE FCÜ MflVA CARRASCO 

2 V=54270:POKEV+26,15:P0KE53281,0:PRIHT "¡i" :PGKE532A0,0 

3 PR I NT "23" : GOSUB3000 ' 

4 ñ$<i)=" a a ":fl$(2> =,, a "R$<3>="a a a " : ñ$<4>="a a 

5 HIMfi<90> 

■■ ^c 5>=" a " :ñ$<s>=" a ■ n :fi$<7)= M a 


Commodore 64 

Lotería es el título de este progra¬ 
ma, que sirve para jugar al bingo con 
el CBM 64. Nos ha sido enviado por 
Francisco Moya Carrasco, uno de 
nuestros lectores en Sevilla. 

El funcionamiento del programa es 
el siguiente: 

Al escribir RUN, después de copia¬ 
do el programa, comienza la presen¬ 
tación del juego. Para comenzar se 
pulsa una tecla, apareciendo el primer 
número en pantalla, aleatorio entre 1 
y 90, debiendo pulsarse asimismo una 
tecla para que vayan apareciendo los 
números sucesivos. Todos los núme¬ 
ros tienen un formato de 8 líneas X 10 
columnas. Cuando se canta un bingo 
o una línea, hay 2 formas de pasar a 
comprobar lo cantado. La primera es 
pulsando la tecla “t”, con lo que se 
obtiene una tabla con todos los nú¬ 
meros y entre ellos y en inverso, los 
que han aparecido. . 

Por otro lado, si la tecla pulsada es 
la “v”, entonces podremos introducir 
uno a uno los números a comprobar, 
encargándose el programa de decir¬ 
nos si han aparecido ya, o todavía no. 
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10 I 
15 f 


•"•H f 


' : ñ$<8 >="3 ■ a ■ 


H 


=y 
=B+1 

= INT <RND<0 > $90> +1 
30 R< B>=C 
40 IFB-1THEN49 
42 FÜRX=B-1TO0STEP-1 
46 IFR < X> =CTHEN20 

48 NEXTX 

49 GOTO1200 

59 GQSUB320 

55 PRINT n íl!?>Í*MiPiiiMPlJL3E UHñ TEÜLñ" , .. ".?Ií!WÍÍPÍML.H V V Lñ T PRRR rnMPRí 

57 F0RW=11010 : GETfií : NEXTW 

60 GETftf : IFAf=""THEN6R 
PR I NT " IT 

IFfi$="V"THENGOSUB1019 
67 IFñf="T"THENGOSUB3580 
79 IFBC30THEN15 
329 B= INT<C/19> : E--C-D* 19 
325 PRI HT" 3" : IFD=0T HEH360 
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330 FÜRR=1T0B*8 RERBZ•NEXT 

366 FORP= 1 TOS ■ RERDZ : F'R I NTTñB< 14 > h$ < Z > • NEXTF' 

400 RESTORE 

405 PEIHT"S!" •• IFE=0THEN420 

4i0 FORR~1TÜE*8 : RERBZ : NEXT 

428 FORP=ITOS : RERBZ PEINTTñB<20> fíí<Z >:NEXTF* 

430 RESTORE 
440 RETURN 

600 JjRI ñ 1 .* .< 3 .■ 3 .> 3 .• 3 .• 1 .• 6.« 1 6 .• 6 .• b .■ 6 .< 6 .■ 7 .• o .• 5 .< 3 .• 1 .• 4 .< 4 - 4.. 7 

61 O BATA 1 , 3 , 5 , i, 5 , 5 , 3 , 3 ., . 4 , 4 , 43 , 2 .. 5 .. 5, 5 , 7 .. 4 .• 4, 1 .. 5.5,5.. 8 

G¿.U .ü F-j ; .i .* 4 .< *-t .* ’1 .> 1 .< o .< o .< 1 .* o .• .• ■_* .• 6.» 3 ,1 .1 3 .* 3 .■ 1 .• . 0 .* i .* o.» 3.» .* .!. .* 1 .• .< .* r .« j .• -1* .• j .< 

1010 PRI NT 11 KpJiIiíÍÍIZCMPROBhC IÜN BE NUMEROS" , , ":«MMsFÜR FRVÜR DEME NUMEROS R COMPRO 

BAR h 

1015 3! NPUTNUMERO " ; RR 

1020 POR !<= 1 TÜ B : IF RR=ñ<K> THENPRINTTñB<20>" STTBIEN»'* : GOTO 1300 

Í030 NEXT 

1 .0 4 O P 0 K E V+6 • 12 3 : P 0 K E V+8,2 O Ü : P 0 K E V+3.2 : F‘ O K E V+ 7 .3 @ 

3.046 FORH= 1TÜ20 

1048 PR I NTTñB < 19 > " 1030 Hñ SRLI DO » : FORT- 3. TÜ 150 • NEXT 

Í043 PRINTTñB< 13> n íONO Hñ SALIDO” : FORTUITO 150 • NEXT : NEXT 

3 .0 5 0 P O K E V+6 .* 12:8 

1053 PRINT" 17' : PRINT"PULSE UNA TECLñ PRRR SEGUIR EL JUEGO” : GOTÜ60 
120U PÜKEV+6, 17 • PÜKEV+8, 24 : POKEV+7,84 : PüKEV+3,58 : FORG= 1 TÜ 120 • NEXT : PÜKEV+6 •• 16 
1210 GOTO50 

3. 300 P*UkE V+b.. ..-j 3 • r'UKEV+y .* 100 • PUKLV+3.* 53 ■ PUKEV+Z.» 53 
1310 FÜRR=1TO100 : NEXT:PüKEV+6,34 : GOTO1015 
0U0 PR I NT " feJrM®" 

010 PRINTTñB< 13) 11 S 1” 

013 F'R INTTRB < 13 > ”5! B J N G 0 1” 

015 PR I NTTñB < 13 > "3 1!" 

020 PRINTTñB'• 5) "SMOGS FORMAS PRRR COMPROBRR BINOOS " 

025 PRINTTfiB<5>”0 LÍNERS - u 
OSO PR I NTTRB '• 5) M SMV . ~ NUMEROS UNO A UNOM" 

032 PRINTTRB<5>"T.- 7RBLR DE NUMEROS RPRRECIDOS" 

034 PR I NT ” mmnnUHñ TECLñ PRRR CÜMENZñR" 

036 GE IR $ •• I Fñ$=” THEN3036 

845 PR I NT ” :1í!Mí!I?Ií»»»!S!TÜD0S LOS CARTONES VA RETIRRDÜSpMpM?]” 

080 PR I NT " MUCHA SUERTE " ; TRB < 17 > " :4JE: INGÜ" , ThB < 28 > 11 «MUCHA SUERTEimm»W 
831 PRINT !! SisSiMlELñS BOLñS SE ESTAN MOVIENDO!” 

082 FORT"1TÜ1U0:PÜKEV+6,123 : PÜKEV+7,9•POKEV+8,O 
4083 POKEV+3, I NT < RND< 8 > *45 > FORR= 1 TO I NT END < 1 >*38 > : NEXT 
884 POKEV+6,128 : FGRJ=1TOINT< RND<3> *28> : NEXT^ NEXT 
035 PRIHT”TECLA PARA EL PRIMER NUMERO" 

100 GETñf ; IF m -"" THEN3189 
150 PRINT"□" RETURN 
508 PRINT":! " 

510 PORP-1T038 
515 FORT- 3. TOB 

528 I FP=ñ < T > THE'IPR I NT" 23" ; R < T > ; " HB" , : T=B ; G0T03525 

523 NEXTT 

524 I FPOñ(B > THENPR IHTF', 

525 IFR-CllTHENPRINT" "; 

526 IFP-- < I NT < P,•* 10 > > M 18=0THENPR I NT 

527 NEXTF' 

530 PRINT":?ís!liÍ»»ilTüD03 LOS NUMEROS SOBRE BLñNCO " 

3531 PRINT"MMHñN SALIDO- PULSE UNR TECLA " 

532 PR I NT" ?H2B»iFñRñ COHTINURR ” 

533 GETñf•IFñ$=""THEN3533 

534 PRINT"2!" • RETURN 
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Como diseñar 
juegos para 

ordenador 

(capitulo 4) 



Desde la aparición del primer or¬ 
denador personal los gráficos han ido 
adquiriendo más y más importancia. 
Hoy en día uno de los factores para 
medir la calidad de un ordenador son 
los gráficos y lo mismo puede decirse 
de los programas (y sobre todo de los 
juegos), si tiene gráficos es bueno y si 
no es muy malo. ¿Es este punto de 
vista lógico?, la respuesta es ambigua, 
sí y no. Es válido si se considera que 
los gráficos proporcionan una infor¬ 
mación más clara v fácil de compren¬ 
der, y dan más vistosidad al progra¬ 
ma. Pero hay grandes juegos (La 
Aventura, también llamada La Ca¬ 
verna Colosal, por ejemplo) que no 
tienen gráficos, pero ofrecen más 
entretenimiento que muchos otros 
que tienen dibujos. En definitiva po¬ 
demos decir que aunque no es fun¬ 
damental, la existencia de gráficos 
mejora el juego. 

Cuando un nuevo usuario del Com- 
modore 64 lee el manual que acom¬ 
paña a la máquina observa, con 
desilusión, que no hace la menor 
referencia a gráficos (nos referimos 
naturalmente a gráficos en alta reso¬ 
lución y no a los cubitos que hay en 


las teclas). Sus posibilidades se redu¬ 
cen a combinaciones geométricas sen¬ 
cillas basadas en cubos, rectas v algún 
que otro cubo. Asimismo las posibili¬ 
dades de color no son muy amplias, 
un borde blanco y un fondo azul, que 
parecen inmutables, crean en él (v 
mucho más cuando ve un juego 
comercial) el sentimiento de que las 
posibilidades de crear grandes dibu¬ 
jos se le escapan de las manos. ¿Es 
esto cierto? No. aunque el manejo de 
gráficas no sea tan sencillo como en 
otras máquinas, si es posible desde el 
BASIC y puede proporcionar resul¬ 
tados tan profes'onales como cual¬ 
quier juego. Sólo hay que aprender 
poco a poco v saber manejar unas 
posibilidades que no por desconoci¬ 
das son inexistentes. 


JUGANDO CON LOS 
CARACTERES 

El método más sencillo de hacer 
moverse objetos en la pantalla es 
usarlos como si fuesen caracteres, 
pero esto son limitados y normalmen¬ 
te no son los dibujos que queremos 


usar (¿alguien ha visto un marciano 
con forma de k \A o de “K ?) pero 
estos problemas son fácilmente solu¬ 
cionadles. En primer-lugar veamos 
como cambiar el color del fondo y del 
‘borde. Basta escribir POKE 5328Ó. X; 
siendo X un número del cero al 
quince para que el fondo cambie al 
color elegido. La misma operación 
podemos hacer con POKE 53281. Y; 
siendo Y el número del color que 
queremos dar al fondo de la pantalla 
central. Este número, del 0 al 15. se 
corresponde con uno de los dieciséis 
que se pueden generar también desde 
el teclado (pero no para el fondo sino 
para la letra). El valor de X o de Y 
correspondiente v su color asociado 
se da en la tabla l. 

A continuación hemos de definir¬ 
nos nuestros caracteres especiales, 
modificando los originales del Com- 
modore, éstos están almacenados en 
una ROM (memoria de solo lectura) 
de donde los coge el VIC-II. que es la 
circuito encargado de la pantalla. 
Para poder crear nuestros propios 
caracteres debemos hacer lo siguien¬ 
te: copiar los caracteres en RAM 
(memoria de lectura y escritura), mo- 
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Para ver el conjunto de los 255 
caracteres posible teclee el programa 
de la figura 2. 

En la pantalla aparecerá el código y 
la representación de todos los carac¬ 
teres. Si ahora queremos modificar 


Tabla 1 


f) « 

*~ 9 u 

NEBRO 

8: 

NARANJA 

1 s 

BLANCO 

9: 

MARRON 

/ T* a 
.u ■ 

ROJO 

1 0: 

ROJO CLARO 

**T 
*. o 
tt 

CIAN 

1 i s 

GRIS 1 

4 5 

PURPURA 

12 s 

GRIS 2 

cr m 

• n 

W tt 

VERDE 

13s 

VERDE CLARO 

ÓS 

AZUL 

14: 

AZUL CLARO 

7 s 

AMARILLO 

i Os 

GRIS 3 


dificar los que queramos y dejar los 
demás como estaban originalmente y 
por último decirle al V1C-1I donde 
está el nuevo conjunto de caracteres. 
Para copiarlos deberemos hacer la 
rutina de la figura 1. 

F.n la línea 10 reservamos espacio 
en la parte superior de la memoria 
para que nuestros caracteres puedan 
meterse en esas direcciones sin ser 
destruidos por el programa BASIC. 
En las líneas 20 v 30 activamos- la 
memoria ROM correspondiente al 
generador de caracteres para'realizar 
la copia (debido a su complejidad no 
se puede explicar más a fondo este 
tema, pero es imprescindible) y por 
último en la línea 40 copiamos el 
juego de caracteres a la nueva memo¬ 
ria. Las dos últimas líneas (50 y 60) 
sirven para dejar la máquina en 
orden, de modo que no se "cuelgue - 


al terminar el programa. Esta rutina 
no necesita comprenderse en profun¬ 
didad, basta con incluirla al principio 
de nuestros programas y luego seguir 
trabajando (para aquellos m a soquis¬ 
tas que deseen ver su funcionamiento 
exacto se aconseja que se lean la 
Guía de Referencia del Commodore 
64 que vende la casa fabricante). 
Ahora tenemos nuestro juego de ca¬ 
racteres en RAM v podemos modifi¬ 
carlo. Cada carácter tiene un número 
asociado, que es el que usa la máqui¬ 
na para representarlo internamente. 
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uno de ellos, deberemos calcular su 
origen en la memoria mediante la 
siguiente fórmula: ORIGEN = (CO¬ 
DIGO * 8)4- 32768. así la será el 
32768 v la “A" el 32776. Si queremos 
convertir la “(a)" utilizaremos la cua¬ 
drícula. Cada una de estas Cuadrícu¬ 
las es un punto en la pantalla y los 64 
juntos forman el carácter, en nuestro 
ejemplo vamos a dibujar una pelota 
como se ve en la figura 4. Para ello 
hemos rellenado los cuadrados que 
nos interesan v hemos dejado en 
blanco los demás. A continuación 
debemos convertir el dibujo en valo¬ 
res numéricos, el método de hacerlo 
es el siguiente: en cada fila sumamos 
los valores dados en la parte superior 
si el punto está relleno. La primera 
línea sería: 4 + 8 4- 16 + 32 =60. la 
segunda 2 + 4 + 8 + 16 + 32 + 64 = 
126 y las cuatro siguientes valdrían 
253, siendo la séptima 126 y la octava 
60. Una vez que tenemos convertida a 
números debemos introducirlos en 
memoria para lo que utilizaremos la 
rutina de la figura 5. 

En este ejemplo fila cero, fila uno. 
corresponden a los valores hallados 
antes. Para introducir nuestra pelota 


en memoria teclearemos esta rutina 
adaptada debajo de la que dimos al 
principio que se encargaba de mover 
los caracteres, quedando como se ve 
en la figura 6. 

Con lo que habremos modificado 
la “@“ en RAM. del mismo modo 
podríamos' modificar los caracteres 
que nos interesen. Pero no hemos 
acabado todavía, si tecleamos este 
símbolo veremos que en pantalla 
aparece como siempre, nos falta de¬ 
cirle al VIC-II que deje de buscar los 
caracteres en ROM v los busque en 
RAM. para ello usaremos algunas 
instrucciones mágicas más:. 

120 POKE 53272. (PEEK (53272) 
AND 240) + 12 

Si ejecuta todo el programa y luego 
pulsa el símbolo en el teclado 

verá como aparece nuestra ya lista 
para jugar. Hemos dado nuestro pri¬ 
mer paso en el mundo de los gráficos. 

Ahora que ya tenemos unos princi¬ 
pios en el manejo de los gráficos, 
podemos usarlos en cualquiera de los 
juegos que hemos visto, podemos 
hacer un ajedrez con fichas que se 
vean, una aventura que nos dibuje las 
habitaciones y sus objetos, etc. 



Pero quizás su principal aplicación 
sea en los “arcade o juegos de 
acción, capítulo que “tocaremos a 
continuación. 


JOYSTICK 

El Commodore 64 tiene dos conec- 
tores denominados PORT 1 v PORT 
2 en el lateral derecho que, entre otras 
cosas sirve para conectar joysticks, 
los mandos ideales de juego. Él siste¬ 
ma en que se basan para funcionar es 
muy sencillo, cada una de las direc¬ 
ciones de movimiento dispone de un 
interruptor que se conecta o se desco¬ 
necta. según la posición del joystick. 
En total son 5 interruptores (cuatro 


7 0 

FOR 1 = 0 

TQ 7 

Figura 5. 

• ■ 80 

READ A 



90 

POKE ORIG 

EN 4- 

I , A 

100 

NEXT I 


- 

1 1 0 

DATA fil 

aO, -í 

* i 1 a 3-3 ti 1 3.2, til o.3, til a4. til a5. til aó, til a7 
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de direcciones y 1 de disparo) los que 
dispone el joystick . cada interruptor 
está numerado (ver figura 7) y su 
valor se puede leer mediante las dos 
siguientes instrucciones: 

^1000 A = PEEK (56320) 

1010 A = (NOT (A)) AND 31 
El valor 56320 corresponde al pon 
2. Después de ejecutar estas instruc¬ 
ciones dispondremos de un número 



que nos indicará el estado de los cinco 
interruptores a- la vez, para saber el 
estado de uno específico deberemos 
hacer: A AND interruptor, dándonos 
un cero si el interruptor no está 
pulsado y el número del interruptor sí 
está pulsado. Un ejemplo de uso 
serían las instrucciones de la figura 8. 

En las que por cada posición se 

realizaría una cosa. Ha de tenerse en 

cuenta, además, que puede haber 

varios pulsadores apretados a la vez. 

por ejemplo si disparamos y a la vez 

movemos a la izquierda y arriba, 

tendremos pulsados los números 1. 3 

v 5. 

*/ 

AGILIZANDO EL PROGRAMA 

En los “ A recule" uno de los princi¬ 


pales problemas reside en la veloci¬ 
dad. Aunque el ordenador es muy 
rápido, a veces no tiene la velocidad 
suficiente como para ejecutar todas 
las instrucciones y. además ser rápido 
y dar la impresión de movimiento. En 


Figura 7. 5 



/ 


2 


este apartado daremos algunos conse¬ 
jos para que su programa BASIC 
vaya más rápido: 

a) Ponga las subrutinas de uso 
frecuente al principio del programa. 

Cuando el ordenador se encuentra un 
GOTO o un GOSUB salta al princi¬ 
pio del programa y empieza a buscar 
la sentencia que se le ha dicho desde 


ese punto. Si está colocado al princi¬ 
pio, la encuentra antes v tarde menos. 
Es conveniente colocar al principio 
del programa una sentencia del tipo: 

1 GOTO 5000. 

Realizándose a partir de la línea 
5000 la inicialización de todos los 
datos y cuando haya acabado con 
esto ejecutar 

6000 GOTO 10. 

Siendo a partir de la línea 10 donde 
se realice el juego en sí. 

b) Utilice variables en vez de nú¬ 
meros. El programa tarda menos en 
buscar una variable que en convertir 
un número, por lo tanto al inicializar 
los datos asigne una variable a cada 
número, aunque éste no se vaya a 
modificar en todo el programa. Asi¬ 
mismo, si dos de éstos tienen el 
mismo valor utilice la misma varia¬ 
ble. Aunque esto dificulta algo la 
comprensión del programa lo hace 
más rápido. 

c) A ser posible no utilice matrices. 

Las matrices tardan mucho tiempo en 
evaluarse, haciendo perder mucho 
tiempo. Utilícelas lo menos posible, y 
en caso de tener que usarlas procure 
que sean de una sola dimensión, 
cuantas más dimensiones tengan, más 
lentas serán. Así la matriz F (100) es 
más rápida que la matriz B (10, 10) y 
las dos tienen la misma capacidad. 

d) Utilice variables de una sola 
letra. Cuantas más letras tiene una 
variable, más lento es su manejo. La 
variable W es más rápida que la OP. 

e) Qmte todos los comentarios 


Figura 8. 


2000 

IF 

A 

AND 

.1 THEN 

2010 

IF 

A 

AND 

2 THEN 

2020 

IF 

A 

AND 

4 THEN 

2030 

IF 

A 

AND 

8 THEN 

2040 

IF 

A 

AND 

16 THEN 


( j oyst i c k arr.i ba) 

(j oystic k abajo) 

(joystick izquierda) 

(jovstick derecha) 
(joystick disparado) 



(REM) del programa. Los comenta¬ 
rios son muy útiles para comprender 
como funciona, pero estorban a la 
máquina. En todo caso guarde una 
versión sin comentarios v tenga otra 
(la que use) sin ellos. 

0 Escriba una sentencia por línea. 
Al revés que en la mayoría de los 
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ordenadores, el escribir una orden en 
cada línea hace que el programa sea 
más rápido que si se escriben varias 
en la misma y separadas por dos 
puntos. (Si alguien no se lo cree que 
lo compruebe). 

g) Utilice las abreviaturas del BA¬ 


SIC que se incluyen en la tabla siguien¬ 
te. El programa ocupa menos y va 
más rápido, cada una de estas abre¬ 
viaturas sustituye a la instrucción que 
va a su izquierda y tiene el mismo 
efecto que si se hubiese tecleado la 
instrucción. Ver tabla 2. 


UN PROGRAMA DE EJEMPLO 

En la figura 7 vemos el listado de 
un programa basado en estas ideas, el 
jugador controla una raqueta situada 
en la línea inferior y da a una pelota 
que rebota contra ella y contra una 
pared superior de color azul, cada vez 
que da en ésta el punto en el que 
impacta se pone de color amarillo. 
Nuestra misión consiste en cambiar 
todo el muro al amarillo sin que se 
cuele la pelota. Esta idea está esboza¬ 
da en unas líneas generales, no se ha 
desarrollado más el juego para dejar 
clara la idea de su funcionamiento y, 
además, el objetivo de este artículo no 
es el de listar juegos, si no el de que 
usted el lector cree su propio juego. 


INSTRUCCION 


ABREV. 


INSTRUCCION 


ABREV. 


ABS 

A 

<SHIFT> 

B 

AMD 

A 

(SHIFT) 

N 

ABC 

A 

( SHIFT ) 

c 

ATM 

A 

(SHIFT) 

T 

CHR* 

C 

(SHIFT)- 

H 

GLOSE 

CL 

(SHIFT) 

0 

CLR 

C 

(SHIFT) 

R 

CMD 

C 

(SHIFT) 

M 

CÜNT 

c 

(SHÍFT) 

0 

DATA 

• D 

(SHIFT) 

A 

DEF 

D 

( SHIFT) 

E 

DIN v 

D 

<CHIFT> 

I 

ENE) 

E 

(SHIFT) 

N 

EXP 

E 

<CHIFT) 

X 

POR 

F 

(SHIFT> 

0 

FRE 

F 

(SHIFT ) 

R 

GET 

6 

(SHIFT) 

E 

GOSUB 

GO 

( SHIFT) 

S 

GOTO 

G 

(SHIFT) 

0 

INPUT 

I 

(SHIFT) 

N 

LEFT* 

LE 

(SHIFT) 

F 

LET 

L. 

íSHIFT) 

E 

LIST 

L. 

(SHIFT) 

I 

LOAD 

L 

(SHIFT) 

0 

MID* 

M 

< SHIFT) 

I 

NEXT 

N 

(SHIFT ) 

E 

NÜT 

N 

(SHIFT) 

0 

OREN 

0 

(SHIFT) 

P 

PEEK 

P 

(SHIFT) 

E 

F'OKE 

P 

(SHIFT) 

0 

PRINT 


O . 


PRINT# 

*P 

(SHIFT) 

R 

READ 

R 

(SHIFT) 

E 

RESTORE 

RE 

(SHIFT) 

S 

RETURN 

RE 

(SHIFT) 

7 

RIGHT* 

R 

(SHIFT) 

1 

RND 

* R 

(SHIFT) 

N 

ROM 

R 

(SHIFT) 

U 

SAVE 

S 

(SHIFT) 

A 

• 

SGM 

S 

(SHIFT) 

G 

SIN 

s 

(SHIFT) 

I 

SPC ( 

s 

(SHIFT) 

P 

SQR 

s 

(SHIFT) 

Q 

STEP 

ST 

(SHIFT) 

E 

STOP 

s 

< SHI FT) 

T 

STR* 

ST 

(SHIFT) 

R 

SYS 

8 

(SHIFT) 

v 

» 

TAB ( 

T 

(SHIFT) 

A 

THEN 

T 

(SHIFT) 

H 

TI ME 

TI 



TIME* 

T I * 


USR 

U 

(SHIFT) 

S 

VAL 

V 

(SHIFT) 

A 

VERIFY 

V 

(SHIFT) 

E 

WAIT 

W 

(SHIFT) 

A 






66 _ NUMERO 5 






















ELECTRO AFICIÓN 

COMPUTER 

C/VILLARROEL, 104 - BARCELONA-11 - TFNO. 253 76 00/09 


TODO EN 
SPECTRUM 


scommodore 

COMPUTER 



EIKOSHA 





A/aurPthtí 

SOFTWARE 


SUSCRIBASE A 

COMMODORE MAGAZINE 

(12 NUMEROS) 

TARIFA DE PRECIOS DE SUSCRIPCION 



CORREO 

ORDINARIO 

CORREO 

CERTIFICADO 

CORREO 

AEREO 

CORREO 

AEREO-CERTIF. 

- 

PT AS. 

$ 

PT AS. 

$ 

PT AS. 

$ 

PTAS. 

$ 

ESPAÑA . 

EUROPA. MARRUECOS. TUNEZ, 

3.000 

21 

3.273 

23 

3.055 

22 

3.333 

24 

TURQUIA, ARGELIA Y CHIPRE . 
COSTA RICA. CUBA, CHILE. PA- 

3.456 

25 

4.272 

31 

3.600 

26 

4.418 

31 

RAGUAY Y REP. DOMINICANA. 
GIBRALTAR Y PORTUGAL 

3.396 

24 

4.212 

30 

4.164 

30 

4.980 

36 

FILIPINAS . 

3.264 

23 

4.080 

29 

3.149 

22 

3.965 

28 

RESTO DEL MUNDO. 

3.264 

23 

3.540 

25 

3.775 

27 

4.050 

29 


3.456 

25 

4.272 

31 

4.224 

30 

5.040 

36 



Recorte y envíe este cupón a: COMMODORE MAGAZINE, C/Bravo Murillo, 377, 5 fl . A - Madrid-20. 


El importe lo abonaré: POR CHEQUE □ CONTRA REEMBOLSO □ 

CON TARJETA DE CREDITO □ American Express □ Visa □ Interbank □ 


Número de mi Tarjeta: 


Fecha de caducidad: 


NOMBRE_____ 

DIRECCION _____ 

CIUDAD--- D.P_PROVINCIA 


































































SLOGAN 


CUANDO SE TIENE UN COMMODORE 64 

ES MUY DIFICIL SER MODESTO 


Cuando se tiene un ordenador personal 
con 64K de memoria, una magnífica resolución, 

16 colores, efectos tridimensionales 
con "sprites", un sonido equivalente 
al de un sintetizador, un teclado profesional 
con 62 caracteres gráficos, 
toda una amplia gama de periféricos 
profesionales, la más completa serie 


de programas educativos, procesionales 
y de video-juegos...; en resumen, cuando se 
tiene un ordenador persona como no existe 
ningún otro en el mercado y el más vendido 
mundialmente, cuando se tiene 

el Commodore 64, es muy difícil mostrarlo 
sin que el orgullo se te note. 




, = l 


EL ORDENADOR PERSONAL DE LA FAMILIA MAS POTENTE 

-Sistemas de gestión profesionales series 8000 Y 700. —Ordenador portátil SX 64. 

- Ordenador personal COMMODORE 64. - Ordenador familiar VIC 20. 



commodore 

COMPUTER 


MICROELECTRONICA Y CONTROL, S.A. 
c/ Taquígrafo Serra, 7, 5.° BARCELONA-29 c/ Princesa, 47, 3.° G MADRID-8 






























